diff options
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index ecf59422..d0265132 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -1113,7 +1113,7 @@ replaceNodeInStructureBy(node, x) == replaceNodeBy(node, x) == atom x => nil - for y in tails x | EQCAR(x,node) repeat RPLAC(first x, $nodeCopy) + for y in tails x | EQCAR(x,node) repeat x.first := $nodeCopy nil chk(x,key) == fn(x,0,key) where fn(x,cnt,key) == |