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

(limited to 'src/interp/trace.boot')

diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index 4ea97d24..7cc14533 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -472,7 +472,7 @@ spadTrace(domain,options) ==
     alias:= spadTraceAlias(domainId,op,n)
     $tracedModemap:= subTypes(mm,constructSubst(domain.0))
     traceName:= BPITRACE(first domain.n,alias, options)
-    NCONC(pair,[listOfVariables,first domain.n,traceName,alias])
+    append!(pair,[listOfVariables,first domain.n,traceName,alias])
     domain.n.first := traceName
   sigSlotNumberAlist:= [x for x in sigSlotNumberAlist | CDDDR x]
   if $reportSpadTrace then
-- 
cgit v1.2.3