diff options
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r-- | src/boot/ast.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 327dfe30..be52533d 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -720,6 +720,7 @@ bfISReverse(x,a) == bfIS1(lhs,rhs) == rhs = nil => ['NULL,lhs] + rhs = true => ['EQ,lhs,rhs] bfString? rhs => bfAND [['STRINGP,lhs],["STRING=",lhs,rhs]] bfChar? rhs or integer? rhs => ['EQL,lhs,rhs] rhs isnt [.,:.] => ['PROGN,bfLetForm(rhs,lhs),'T] |