blob: e9c447ff8ef99721ca020ec874c9699510a5d960 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#-h- entdef 387 local 12/01/80 15:53:51
# entdef - enter a new symbol definition, discarding any old one
include defs
subroutine entdef (name, defn, table)
character name (MAXTOK), defn (ARB)
pointer table
integer lookup
pointer text
pointer sdupl
if (lookup (name, text, table) == YES)
call dsfree (text) # this is how to do UNDEFINE, by the way
call enter (name, sdupl (defn), table)
return
end
|
