diff options
| -rw-r--r-- | src/interp/i-spec1.boot | 4 |
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 |