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

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

diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index c272fedc..3a4ef8b4 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -1054,8 +1054,8 @@ doItIf(item is [.,p,x,y],$predl,$e) ==
                   nils:=[gv,:nils]
               n:=n+1
 
-            $functorLocalParameters:=[:oldFLP,:REVERSE nils]
-            REVERSE ans
+            $functorLocalParameters:=[:oldFLP,:reverse nils]
+            reverse ans
   oldFLP:=$functorLocalParameters
   if y~="%noBranch" then
 --> new <-----------------------
-- 
cgit v1.2.3