aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog4
-rw-r--r--src/boot/strap/translator.clisp3
-rw-r--r--src/boot/translator.boot2
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