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/functor.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index e7db218f..f023faab 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -421,7 +421,7 @@ setVector4(catNames,catsig,conditions) ==
     for ["%LET",name,cond,:.] in $getDomainCode repeat
       $HackSlot4:=MSUSBT(name,cond,$HackSlot4)
   code := ["setShellEntry",'$,4,'TrueDomain]
-  code:=['(%LET TrueDomain (NREVERSE TrueDomain)),:$HackSlot4,code]
+  code:=['(%LET TrueDomain (nreverse TrueDomain)),:$HackSlot4,code]
   code:=
     [:
       [setVector4Onecat(u,v,w)
@@ -591,7 +591,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) ==
   code is ['PROGN,:codelist] =>
     ['PROGN,:
             --Two REVERSEs leave original order, but ensure last guy wins
-      NREVERSE [v for u in REVERSE codelist |
+      nreverse [v for u in reverse codelist |
                     (v:= DescendCode(u,flag,viewAssoc,EnvToPass))~=nil]]
   code is ['COND,:condlist] =>
     c:= [[u2:= ProcessCond first u,:q] for u in condlist] where q() ==
@@ -611,7 +611,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) ==
     while (c and (LAST c is [c1] or LAST c is [c1,[]]) and
             (c1 = '(QUOTE T) or c1 is ['HasAttribute,:.])) repeat
                    --strip out some worthless junk at the end
-        c:=NREVERSE rest NREVERSE c
+        c:=nreverse rest nreverse c
     null c => '(LIST)
     ['COND,:c]
   code is ["%LET",name,body,:.] =>
-- 
cgit v1.2.3