From b0046ba3929c513a399fd1ebb84dee1712c55a02 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 22 Apr 2011 00:58:05 +0000
Subject: 	* boot/utility.boot (copyList): Define. 	(append!):
 Likewise. 	* boot/tokens.boot: Do not translate nconc.

---
 src/interp/i-intern.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-intern.boot')

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
-- 
cgit v1.2.3