diff options
Diffstat (limited to 'src/boot/ast.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 |