diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-26 20:44:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-26 20:44:29 +0000 |
| commit | 8a5fd55bbfb440f3b4d787c345782b546dd96a6b (patch) | |
| tree | b2292406db60c47812c0ca6bb93a4cb7ef7912e5 /src/interp/g-opt.boot | |
| parent | 908960a455e09bf5440ab87ed288efc989f8b29e (diff) | |
| download | open-axiom-8a5fd55bbfb440f3b4d787c345782b546dd96a6b.tar.gz | |
Use %veclit forms
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 1a2fa576..369a43bb 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -298,7 +298,7 @@ compileTimeBindingOf u == optMkRecord ["mkRecord",:u] == u is [x] => ['%listlit,x] #u=2 => ['%makepair,:u] - ["VECTOR",:u] + ['%veclit,:u] optCond (x is ['COND,:l]) == if l is [a,[aa,b]] and aa = '%true and b is ['COND,:c] then @@ -461,8 +461,8 @@ $VMsideEffectFreeOperators == ++ List of simple VM operators $simpleVMoperators == append($VMsideEffectFreeOperators, - ['CONS,'LIST,'VECTOR,'STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse_!, - '%strstc,'%makebitvec,'%makevector, + ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse_!, + '%strstc,'%makepair,'%makebitvec,'%makevector, "MAKE-FULL-CVEC","BVEC-MAKE-FULL","COND"]) ++ Return true if the `form' is semi-simple with respect to |