diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index d2636c16..5c1d4605 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -198,12 +198,12 @@ ScanOrPairVec(f, ob) == ScanOrInner(f, ob) == HGET($seen, ob) => nil cons? ob => - HPUT($seen, ob, true) + tableValue($seen, ob) := true ScanOrInner(f, first ob) ScanOrInner(f, rest ob) nil vector? ob => - HPUT($seen, ob, true) + tableValue($seen, ob) := true for i in 0..#ob-1 repeat ScanOrInner(f, ob.i) nil FUNCALL(f, ob) => |