aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-24 00:13:04 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-24 00:13:04 +0000
commit332c97dae1bfc5de9d8af1a3400310903f79abe1 (patch)
treef1ea0e96ef184210b9590bd42b3a18f8ed30888d /src
parent58d87a5f008107b6ddc93d3191c1ac9380e16e7b (diff)
downloadopen-axiom-332c97dae1bfc5de9d8af1a3400310903f79abe1.tar.gz
More cleanups
Diffstat (limited to 'src')
-rw-r--r--src/interp/i-spec1.boot4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index b8799533..c3c0179a 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -815,6 +815,7 @@ checkForFreeVariables(v,locals) ==
-- Might have a mode at the front of a list, or be calling a function
-- which returns a function.
[checkForFreeVariables(op,locals),:[checkForFreeVariables(a,locals) for a in args]]
+ op in '(LAMBDA QUOTE getValueFromEnvironment) => v
op = "LETT" => -- Expands to a SETQ.
["SETF",:[checkForFreeVariables(a,locals) for a in args]]
op = "COLLECT" => -- Introduces a new bound variable?
@@ -845,9 +846,6 @@ checkForFreeVariables(v,locals) ==
error "Non-simple variable bindings are not currently supported"
op = "PROG" =>
error "Non-simple variable bindings are not currently supported"
- op = "LAMBDA" => v
- op = "QUOTE" => v
- op = "getValueFromEnvironment" => v
[op,:[checkForFreeVariables(a,locals) for a in args]]
v