diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 | ||||
| -rw-r--r-- | src/boot/translator.boot | 2 |
3 files changed, 6 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 0af6e3c3..2273b3d6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2010-05-18 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/translator.boot (translateToplevelExpression): Tidy. + +2010-05-18 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/cparse.boot: Clean up. 2010-05-17 Gabriel Dos Reis <gdr@cs.tamu.edu> diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 06af9992..0b7eb64b 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -551,8 +551,7 @@ (RETURN (PROGN (SETQ |expr'| - (CDR (CDR (|shoeCompTran| - (LIST 'LAMBDA (LIST '|x|) |expr|))))) + (CDR (CDR (|shoeCompTran| (LIST 'LAMBDA NIL |expr|))))) (LET ((|bfVar#9| |expr'|) (|t| NIL)) (LOOP (COND diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 68b9eef3..85f67993 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -392,7 +392,7 @@ translateSignatureDeclaration d == ++ A non declarative expression `expr' appears at toplevel and its ++ translation needs embeddeding in an `EVAL-WHEN'. translateToplevelExpression expr == - expr' := rest rest shoeCompTran ["LAMBDA",["x"],expr] + expr' := rest rest shoeCompTran ["LAMBDA",nil,expr] -- replace "DECLARE"s with "DECLAIM"s, as the former can't appear -- at toplevel. for t in expr' repeat |