diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-03 07:07:41 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-03 07:07:41 +0000 |
commit | d31c116e4080b085554c7f5cad72851cdb0e7b16 (patch) | |
tree | 669566ce309542d8724079af58b2f5865be3e24e /src/interp/g-opt.boot | |
parent | 7a8d437ec5431e0e33285c35478e76ec7f07580d (diff) | |
download | open-axiom-d31c116e4080b085554c7f5cad72851cdb0e7b16.tar.gz |
* interp/slam.boot (reportFunctionCompilation): Use %otherwise,
not %true for default cases.
(reportFunctionCacheAll): Likewise.
(compileRecurrenceRelation): Likewise.
* interp/lisp-backend.boot (expandTry): Tidy.
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %otherwise.
* interp/compiler.boot (compAlternativeGuard): Emit %otherwise
form, not Lisp level T form.
* interp/clam.boot (compClam): Tidy.
(compHash): Likewise.
(compHashGlobal): Likewise.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 4806b103..b02b81b3 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -401,7 +401,7 @@ $VMsideEffectFreeOperators == QEQCAR QCDR QCAR IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN CGREATERP GGREATERP CHAR GET BVEC_-GREATER %when %false %true - %2bit %2bool + %otherwise %2bit %2bool %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer? %beq %blt %ble %bgt %bge %bitand %bitior %bitnot %bcompl %ilength %ibit %icst0 %icst1 |