aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-intern.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r--src/interp/i-intern.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot
index e0e2b2f0..b9c8eec9 100644
--- a/src/interp/i-intern.boot
+++ b/src/interp/i-intern.boot
@@ -470,7 +470,7 @@ transformCollect [:itrl,body] ==
it is ["UNTIL",:.] => nil
throwKeyedMsg("S2IS0061",nil)
bodyTree:=mkAtree1 body
- iterList:=nconc(iterList,[:iterTran2 for it in itrl]) where
+ iterList:=append!(iterList,[:iterTran2 for it in itrl]) where
iterTran2() ==
it is ["STEP",:.] => nil
it is ["IN",:.] => nil