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/ht-util.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/ht-util.boot')

diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index 14607077..0c97430f 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -211,7 +211,7 @@ iht line ==
 -- issue a single hyperteTeX line, or a group of lines
   $newPage => nil
   cons? line =>
-    $htLineList := NCONC(reverse! mapStringize COPY_-LIST line, $htLineList)
+    $htLineList := append!(reverse! mapStringize copyList line, $htLineList)
   $htLineList := [basicStringize line, :$htLineList]
 
 bcIssueHt line ==
@@ -383,7 +383,7 @@ pvarCondList1(pvarList, activeConds, condList) ==
   null condList => activeConds
   [cond, : restConds] := condList
   cond is [., pv, pattern] and pv in pvarList =>
-    pvarCondList1(nconc(pvarList, pvarsOfPattern pattern),
+    pvarCondList1(append!(pvarList, pvarsOfPattern pattern),
                   [cond, :activeConds], restConds)
   pvarCondList1(pvarList, activeConds, restConds)
 
-- 
cgit v1.2.3