diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-20 07:50:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-20 07:50:21 +0000 |
| commit | adac8d95735aa3dc001658f2438b79d1c38a58d4 (patch) | |
| tree | 5bc230d898c2a44324976e4096df7fe6f32eac8b /src/interp | |
| parent | c311ea4e099e5e497d290b36131edde4d7d4a36f (diff) | |
| download | open-axiom-adac8d95735aa3dc001658f2438b79d1c38a58d4.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 3 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 1 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 4 |
3 files changed, 7 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index a2e3a4e8..aca6a00c 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -445,7 +445,8 @@ $VMsideEffectFreeOperators == %zsinh %zcosh %ztanh %zasinh %zacosh %zatanh %nil %pair %list %pair? %lconcat %llength %lfirst %lsecond %lthird %lreverse %lempty? %hash %ismall? %string? %f2s - %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown %sname + %ccst %ccstmax %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown + %sname %strlength %streq %i2s %schar %strlt %strconc %strcopy %vector %aref %vref %vlength %bitvector diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 84638ba4..8a9a2a4c 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -447,6 +447,7 @@ for x in [ ['%or, :'OR], -- character operations + ['%ccstmax,:'_$CharCodeMax], ['%ceq, :'CHAR_=], ['%clt, :'CHAR_<], ['%cle, :'CHAR_<_=], diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index 3c61487e..c5d8656b 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -44,6 +44,10 @@ namespace BOOT --% Numeric limits --% +++ Maximum value of character code point values +$CharCodeMaximum == + CHAR_-CODE_-LIMIT + ++ Minimum for %Short values. $ShortMinimum == MOST_-NEGATIVE_-FIXNUM |