diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
| commit | a31c0a21788a17c1bce15120225bc5a15fa1da33 (patch) | |
| tree | 5f5cea97cd52114dee92a8b66ca802e7fd0fab08 /src/interp/i-syscmd.boot | |
| parent | 8e0d0dbfa31e6a035ec5e954c192742ade763dda (diff) | |
| download | open-axiom-a31c0a21788a17c1bce15120225bc5a15fa1da33.tar.gz | |
Generate SVREF for simple vector slot refs.
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 66f72f73..e26c256d 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2080,7 +2080,7 @@ writify ob == HPUT($seen, ob, nob) HPUT($seen, nob, nob) for i in 0..n repeat - QSETVELT(nob, i, writifyInner QVELT(ob,i)) + vectorRef(nob, i) := writifyInner vectorRef(ob,i) nob ob = 'WRITIFIED_!_! => ['WRITIFIED_!_!, 'SELF] @@ -2223,7 +2223,7 @@ dewritify ob == HPUT($seen, ob, nob) HPUT($seen, nob, nob) for i in 0..n repeat - QSETVELT(nob, i, dewritifyInner QVELT(ob,i)) + vectorRef(nob,i) := dewritifyInner vectorRef(ob,i) nob -- Default case: return the object itself. ob |