diff options
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 |