aboutsummaryrefslogtreecommitdiff
path: root/src/boot/ast.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r--src/boot/ast.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index a106a366..d757cda4 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -580,7 +580,7 @@ bfLET2(lhs,rhs) ==
if cons? l2 and atom first l2 then
l2 := [l2,:nil]
var1 is "DOT" => [['L%T,g,rev],:l2]
- last l2 is ['L%T, =var1, val1] =>
+ first lastNode l2 is ['L%T, =var1, val1] =>
[['L%T,g,rev],:reverse rest reverse l2,
bfLetForm(var1,['reverse!,val1])]
[['L%T,g,rev],:l2,bfLetForm(var1,['reverse!,var1])]