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-special.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot
index 5a7a4607..a167f8e3 100644
--- a/src/interp/i-special.boot
+++ b/src/interp/i-special.boot
@@ -2162,7 +2162,7 @@ transformREPEAT [:itrl,body] ==
       [["SUCHTHAT",mkAtree1 pred]]
     it is [op,:.] and (op in '(VALUE UNTIL)) => nil
   bodyTree:=mkAtree1 body
-  iterList:=NCONC(iterList,[:iterTran2 for it in itrl]) where iterTran2() ==
+  iterList:=append!(iterList,[:iterTran2 for it in itrl]) where iterTran2() ==
     it is ["STEP",:.] => nil
     it is ["IN",:.] => nil
     it is ["ON",:.] => nil
-- 
cgit v1.2.3