From a31c0a21788a17c1bce15120225bc5a15fa1da33 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 27 Jan 2011 21:12:57 +0000 Subject: Generate SVREF for simple vector slot refs. --- src/interp/i-syscmd.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/i-syscmd.boot') 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 -- cgit v1.2.3