diff options
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 46faf47b..2c529ec3 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -457,7 +457,7 @@ $VMsideEffectFreeOperators == ++ List of simple VM operators $simpleVMoperators == append($VMsideEffectFreeOperators, - ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse_!, + ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse!, '%strstc,"MAKE-FULL-CVEC","BVEC-MAKE-FULL"]) ++ Return true if the `form' is semi-simple with respect to @@ -620,7 +620,7 @@ optBind form == usedSymbol?(var,rest inits) => ok := false -- no dependency, please. body := third form canInlineVarDefinition(var,expr,body) and isSimpleVMForm expr => - third(form) := substitute_!(expr,var,body) + third(form) := substitute!(expr,var,body) inits := rest inits ok := false null inits => third form -- no local var left |