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

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

diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot
index fab869b2..d3244a37 100644
--- a/src/interp/i-coerfn.boot
+++ b/src/interp/i-coerfn.boot
@@ -1997,7 +1997,7 @@ SETANDFILEQ($CoerceTable, '(                                          _
     ))_
   ))
 
-SETANDFILEQ($CoerceTable,NCONC($CoerceTable,'( _
+SETANDFILEQ($CoerceTable,append!($CoerceTable,'( _
   (Matrix . ( _
     (List                                 indeterm   M2L) _
     (RectangularMatrix                    partial    M2Rm) _
-- 
cgit v1.2.3