diff options
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r-- | src/boot/ast.boot | 2 |
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])] |