diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 | ||||
| -rw-r--r-- | src/boot/translator.boot | 2 |
2 files changed, 2 insertions, 3 deletions
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 |