From 332c97dae1bfc5de9d8af1a3400310903f79abe1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 24 May 2010 00:13:04 +0000 Subject: More cleanups --- src/interp/i-spec1.boot | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/interp') 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 -- cgit v1.2.3