diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-24 00:13:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-24 00:13:04 +0000 |
| commit | 332c97dae1bfc5de9d8af1a3400310903f79abe1 (patch) | |
| tree | f1ea0e96ef184210b9590bd42b3a18f8ed30888d | |
| parent | 58d87a5f008107b6ddc93d3191c1ac9380e16e7b (diff) | |
| download | open-axiom-332c97dae1bfc5de9d8af1a3400310903f79abe1.tar.gz | |
More cleanups
| -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 |