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 25ec813d..dc73604a 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -155,11 +155,11 @@ walkWith!(x,f) == x for ys in tails x | not atomic? first ys repeat ys.first := walkWith!(first ys,f) - apply(f,x,nil) + apply(f,[x]) prefixWalk!(x,f) == atomic? x => x - x := apply(f,x,nil) + x := apply(f,[x]) atomic? x => x for xs in tails x | not atomic? first xs repeat xs.first := prefixWalk!(first xs,f) |