From ba495f17f8e3a8b780f038fd6f2d5877ccc2476e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Dec 2010 02:13:55 +0000
Subject: cleanup

---
 src/interp/define.boot   | 2 +-
 src/interp/i-syscmd.boot | 4 ++--
 src/interp/i-util.boot   | 5 +++--
 src/interp/scan.boot     | 6 +++---
 4 files changed, 9 insertions(+), 8 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index a1f75041..4e0787a2 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -886,7 +886,7 @@ mkOpVec(dom,siglist) ==
   substargs:= [['$,:dom.0],:pairList($FormalMapVariableList,rest dom.0)]
   oplist:= getConstructorOperationsFromDB opOf dom.0
   --new form is (<op> <signature> <slotNumber> <condition> <kind>)
-  ops:= MAKE_-VEC (#siglist)
+  ops := newVector #siglist
   for (opSig:= [op,sig]) in siglist for i in 0.. repeat
     u:= ASSQ(op,oplist)
     assoc(sig,u) is [.,n,.,'ELT] => ops.i := dom.n
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 75705805..43375d0c 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2076,7 +2076,7 @@ writify ob ==
                     HPUT($seen, nob, nob)
                     nob
                 n   := QVMAXINDEX ob
-                nob := MAKE_-VEC(n+1)
+                nob := newVector(n+1)
                 HPUT($seen, ob, nob)
                 HPUT($seen, nob, nob)
                 for i in 0..n repeat
@@ -2219,7 +2219,7 @@ dewritify ob ==
                 nob
             vector? ob =>
                 n   := QVMAXINDEX ob
-                nob := MAKE_-VEC(n+1)
+                nob := newVector(n+1)
                 HPUT($seen, ob, nob)
                 HPUT($seen, nob, nob)
                 for i in 0..n repeat
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot
index 32b134ff..c55a3a5e 100644
--- a/src/interp/i-util.boot
+++ b/src/interp/i-util.boot
@@ -94,8 +94,9 @@ textEditor() ==
 $ZeroVecCache := nil
 Zeros n ==
   #$ZeroVecCache = n => $ZeroVecCache
-  $ZeroVecCache := MAKE_-VEC n
-  for i in 0..n-1 repeat $ZeroVecCache.i:=0
+  $ZeroVecCache := newVector n
+  for i in 0..n-1 repeat
+    $ZeroVecCache.i := 0
   $ZeroVecCache
  
 LZeros n ==
diff --git a/src/interp/scan.boot b/src/interp/scan.boot
index c39ea640..4aacb056 100644
--- a/src/interp/scan.boot
+++ b/src/interp/scan.boot
@@ -182,7 +182,7 @@ scanInsert(s,d) ==
   k:=0
   while l <= #(u.k) repeat
     k := k+1
-  v := MAKE_-VEC(n+1)
+  v := newVector(n+1)
   for i in 0..k-1 repeat
     VEC_-SETELT(v,i,u.i)
   VEC_-SETELT(v,k,s)
@@ -194,8 +194,8 @@ scanInsert(s,d) ==
 scanDictCons()==
   l:= HKEYS scanKeyTable
   d :=
-    a := MAKE_-VEC(256)
-    b := MAKE_-VEC(1)
+    a := newVector 256
+    b := newVector 1
     VEC_-SETELT(b,0,MAKE_-CVEC 0)
     for i in 0..255 repeat
       VEC_-SETELT(a,i,b)
-- 
cgit v1.2.3