diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-27 06:28:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 06:28:15 +0000 |
| commit | e813f56af68f00663d6df03c4ed1ff6f85873716 (patch) | |
| tree | d70a5e427e4de044d6446a73ce9c3fe93cbac8a7 /src/boot/ast.boot | |
| parent | 7544b976d2919866e60211ded498df937650de05 (diff) | |
| download | open-axiom-e813f56af68f00663d6df03c4ed1ff6f85873716.tar.gz | |
Rename MAKE-FULL-FILENAME to makeFullFilename.
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 6410b524..dfffa58a 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -761,6 +761,7 @@ bfIS1(tu,lhs,rhs) == rhs = true => ['EQ,lhs,rhs] bfString? rhs => bfAND [['STRINGP,lhs],["STRING=",lhs,rhs]] bfChar? rhs or integer? rhs => ['EQL,lhs,rhs] + inert? rhs => ['EQ,lhs,rhs] rhs isnt [.,:.] => ['PROGN,bfLetForm(rhs,lhs),'T] rhs.op is 'QUOTE => [.,a] := rhs |