diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 17:39:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 17:39:52 +0000 |
| commit | 9b1dd86f0bcb9aa41ca3fded5e79a7581d127391 (patch) | |
| tree | 27c110751f006a831e9fbdde4707b3dffa29a33d /src/boot/ast.boot | |
| parent | 2583edf6b172ea98d700773df5f51761aee01692 (diff) | |
| download | open-axiom-9b1dd86f0bcb9aa41ca3fded5e79a7581d127391.tar.gz | |
* boot/ast.boot (bfIS1): Tidy.
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index ed2ff3bc..9e1882dd 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -640,10 +640,11 @@ bfISReverse(x,a) == bfIS1(lhs,rhs) == rhs = nil => ['NULL,lhs] string? rhs => ['EQ,lhs,['QUOTE,INTERN rhs]] - NUMBERP rhs => ["EQUAL",lhs,rhs] + integer? rhs => ['EQL,lhs,rhs] atom rhs => ['PROGN,bfLetForm(rhs,lhs),'T] rhs is ['QUOTE,a] => - IDENTP a => ['EQ,lhs,rhs] + symbol? a => ['EQ,lhs,rhs] + string? a => bfAND [['STRINGP,lhs],["STRING=",lhs,a]] ["EQUAL",lhs,rhs] rhs is ['L%T,c,d] => l := bfLET(c,lhs) |