diff options
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], |