aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/interp/c-util.boot2
-rw-r--r--src/interp/define.boot2
-rw-r--r--src/interp/parse.boot2
3 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index a6931e5c..bd1566da 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1568,7 +1568,7 @@ massageBackendCode x ==
-- special variable.
u is 'SETQ and isLispSpecialVariable second x =>
noteSpecialVariable second x
- ident? u and GET(u,"ILAM") ~= nil =>
+ ident? u and property(u,"ILAM") ~= nil =>
x.first := eval u
massageBackendCode x
u in '(LET LET_*) =>
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 05e87331..8c127081 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -2393,7 +2393,7 @@ makeCategoryForm(c,e) ==
mustInstantiate: %Form -> %Thing
mustInstantiate D ==
D is [fn,:.] and
- not (symbolMember?(fn,$DummyFunctorNames) or GET(fn,"makeFunctionList"))
+ not (symbolMember?(fn,$DummyFunctorNames) or property(fn,"makeFunctionList"))
wrapDomainSub: (%List %Form, %Form) -> %Form
wrapDomainSub(parameters,x) ==
diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index 8fd23a1c..2f9b94cc 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -76,7 +76,7 @@ parseTran x ==
r:= parseConstruct ["construct",:argl]
op is ["elt",:.] => [parseTran op,:rest r]
r
- symbol? u and (fn:= GET(u,'parseTran)) => FUNCALL(fn,x)
+ symbol? u and (fn:= property(u,'parseTran)) => FUNCALL(fn,x)
[parseTran op,:parseTranList argl]
parseType t ==