From 8a5fd55bbfb440f3b4d787c345782b546dd96a6b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 26 Jan 2011 20:44:29 +0000
Subject: Use %veclit forms

---
 src/interp/g-opt.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/g-opt.boot')

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
-- 
cgit v1.2.3