diff options
Diffstat (limited to 'src/interp/ptrees.boot')
| -rw-r--r-- | src/interp/ptrees.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/ptrees.boot b/src/interp/ptrees.boot index 4ec6f7e5..e68407bd 100644 --- a/src/interp/ptrees.boot +++ b/src/interp/ptrees.boot @@ -788,7 +788,7 @@ pfCopyWithPos( pform , pos ) == pfMapParts(f, pform) == pfLeaf? pform => pform parts0 := pfParts pform - parts1 := [FUNCALL(f, p) for p in parts0] + parts1 := [apply(f,[p]) for p in parts0] -- Return the original if no changes. same := true for p0 in parts0 for p1 in parts1 while same repeat same := sameObject?(p0,p1) |