diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-03 00:12:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-03 00:12:14 +0000 |
| commit | b1127318c2fc599f970c3f9cba423eaf46ac0564 (patch) | |
| tree | c2e6882b335975743265bc5325e267e83cd5ed28 /src/boot | |
| parent | e05241ed11702813eb225b084643720deb121d26 (diff) | |
| download | open-axiom-b1127318c2fc599f970c3f9cba423eaf46ac0564.tar.gz | |
* interp/Makefile.pamphlet (template.$(FASLEXT)): Remove.
* interp/template.boot: Move non-dead code where appropriate.
Remove file.
* boot/ast.boot (bfQ): Improve.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index f9246218..da023938 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -784,16 +784,12 @@ bfSmintable x== first x in '(SIZE LENGTH char) bfQ(l,r)== - if bfSmintable l or bfSmintable r - then ["EQL",l,r] - else if defQuoteId l or defQuoteId r - then ["EQ",l,r] - else - if null l - then ["NULL",r] - else if null r - then ["NULL",l] - else ["EQUAL",l,r] + bfSmintable l or bfSmintable r => ["EQL",l,r] + defQuoteId l or defQuoteId r => ["EQ",l,r] + null l => ["NULL",r] + null r => ["NULL",l] + EQ(l,true) or EQ(r,true) => ["EQ",l,r] + ["EQUAL",l,r] bfLessp(l,r)== if r=0 |