From 1ea145d58ec94029d4f6e30a6f854f728154ad8c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 26 Sep 2009 18:43:36 +0000
Subject: More cleanup

---
 src/interp/trace.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index 2b874c2d..ead22c21 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -161,7 +161,7 @@ getTraceOptions options ==
       [key,parms] := first $traceErrorStack
       throwKeyedMsg(key,['"",:parms])
     throwListOfKeyedMsgs("S2IT0017",[# $traceErrorStack],
-      NREVERSE $traceErrorStack)
+      nreverse $traceErrorStack)
   optionList
 
 saveMapSig(funNames) ==
@@ -364,7 +364,7 @@ getMapSubNames(l) ==
   subs:= nil
   for mapName in l repeat
     lmm:= get(mapName,'localModemap,$InteractiveFrame) =>
-      subs:= APPEND([[mapName,:second mm] for mm in lmm],subs)
+      subs:= append([[mapName,:second mm] for mm in lmm],subs)
   union(subs,getPreviousMapSubNames UNIONQ(_/TRACENAMES,
     $lastUntraced))
 
@@ -397,7 +397,7 @@ augmentTraceNames(l,mapSubNames) ==
   res:= nil
   for traceName in l repeat
     mml:= get(traceName,'localModemap,$InteractiveFrame) =>
-      res:= APPEND([second mm for mm in mml],res)
+      res:= append([second mm for mm in mml],res)
     res:= [traceName,:res]
   res
 
-- 
cgit v1.2.3