aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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