diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-19 02:13:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 02:13:55 +0000 |
| commit | ba495f17f8e3a8b780f038fd6f2d5877ccc2476e (patch) | |
| tree | 4b51a93a73c409ae36fbe494091a2a47bb800087 /src/interp | |
| parent | abd2b49e66adf06d16d6664526f693e67bdaf719 (diff) | |
| download | open-axiom-ba495f17f8e3a8b780f038fd6f2d5877ccc2476e.tar.gz | |
cleanup
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/define.boot | 2 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 4 | ||||
| -rw-r--r-- | src/interp/i-util.boot | 5 | ||||
| -rw-r--r-- | src/interp/scan.boot | 6 |
4 files changed, 9 insertions, 8 deletions
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) |