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/i-syscmd.boot | |
| parent | abd2b49e66adf06d16d6664526f693e67bdaf719 (diff) | |
| download | open-axiom-ba495f17f8e3a8b780f038fd6f2d5877ccc2476e.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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 |