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

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

diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index c12f9e4d..2c150532 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -170,12 +170,12 @@ exp2FortOptimize e ==
   atom e => [e]
   $fortranOptimizationLevel = 0 =>
     e1 := exp2FortOptimizeArray e
-    NREVERSE [e1,:$exprStack]
+    nreverse [e1,:$exprStack]
   e := minimalise e
   for e1 in exp2FortOptimizeCS  e repeat
     e2 := exp2FortOptimizeArray e1
     $exprStack := [e2,:$exprStack]
-  NREVERSE $exprStack
+  nreverse $exprStack
 
  
 exp2FortOptimizeCS e ==
@@ -184,7 +184,7 @@ exp2FortOptimizeCS e ==
   $fortCsExprStack : local := NIL
   $fortCsFuncStack : local := NIL
   f := exp2FortOptimizeCS1 e
-  NREVERSE [f,:$fortCsList]
+  nreverse [f,:$fortCsList]
  
 -- bug fix to beenHere 
 -- Thu Nov 05 12:01:46 CUT 1992 , Author: TTT
@@ -362,7 +362,7 @@ fortexp0 x ==
   while p < 0 repeat
     [t,:f] := f
     l := [t,:l]
-  NREVERSE ['"...",:l]
+  nreverse ['"...",:l]
 
 ++ This formating routine is essentially used to print
 ++ values/expreions used to instantiate constructors.
-- 
cgit v1.2.3