diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 01:06:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 01:06:03 +0000 |
| commit | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (patch) | |
| tree | 3f23e82135247dff27c3b6f1d56a9d587b7eacbd /src/boot/ast.boot | |
| parent | accf24b495a8de5bac09572e588d9b696a130e1a (diff) | |
| download | open-axiom-94c6cd6e946964b3710dbe24dbca7c44a36beee0.tar.gz | |
more cleanup
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])] |