diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-06 19:04:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-06 19:04:54 +0000 |
| commit | 4a7b8e70463ca239030c406e89777e209f393c33 (patch) | |
| tree | 8ee97a418aeba156a813b443be8c3ec8c6a06dd0 /src/interp | |
| parent | 382517ec42b83bef4bb6effa31b2e8cc70dada5d (diff) | |
| download | open-axiom-4a7b8e70463ca239030c406e89777e209f393c33.tar.gz | |
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %c2s.
* interp/lisp-backend.boot: Translate it.
* algebra/integer.spad.pamphlet (Integer) [convert]: Tidy.
[latex]: Likewise.
* algebra/string.spad.pamphlet (Character)[latex]: Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 2 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 07562c49..ad5d7b84 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -445,7 +445,7 @@ $VMsideEffectFreeOperators == %zsinh %zcosh %ztanh %zasinh %zacosh %zatanh %nil %pair? %lconcat %llength %lfirst %lsecond %lthird %lreverse %lempty? %hash %ismall? %string? %f2s - %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %cup %cdown %sname + %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown %sname %strlength %streq %i2s %schar %strlt %strconc %strcopy %aref %vref %vlength %bitvecnot %bitvecand %bitvecnand %bivecor %bitvecnor %bitvecxor diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 637e1629..7a068efb 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -456,6 +456,7 @@ for x in [ ['%cdown, :'CHAR_-DOWNCASE], ['%c2i, :'CHAR_-CODE], ['%i2c, :'CODE_-CHAR], + ['%c2s, :'STRING], -- byte operations ['%beq, :'byteEqual], |