From 97463cc77bbec1c33f46ceb44584a180264682c3 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 21 Apr 2011 05:56:14 +0000
Subject: 	* boot/tokens.boot: Don't rename nreverse. 	*
 boot/utility.boot (reverse!): Define. 	* boot/parser.boot: Use reverse!
 instead of NREVERSE. 	* boot/ast.boot: Generate reverse! forms instead of
 NREVERSE.

---
 src/interp/ht-root.boot | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/src/interp/ht-root.boot b/src/interp/ht-root.boot
index 563326d9..30bb52b4 100644
--- a/src/interp/ht-root.boot
+++ b/src/interp/ht-root.boot
@@ -56,7 +56,7 @@ htSystemVariables() == main where
     $levels : local := '(compiler development interpreter)
     $heading  : local := nil
     while classlevel ~= first $levels repeat $levels := rest $levels
-    table := nreverse fn($setOptions,nil,true)
+    table := reverse! fn($setOptions,nil,true)
     htInitPage('"System Variables",nil)
     htSay '"\beginmenu"
     lastHeading := nil
@@ -180,7 +180,7 @@ gatherGlossLines(results,defstream) ==
       (j := charPosition($tick,x,1)) and (nextPointer := subString(x,0,j))
         and (nextPointer = pointer) repeat
           xtralines := [subString(x,j + 1),:xtralines]
-    acc := [strconc(keyAndTick,def, strconc/nreverse xtralines),:acc]
+    acc := [strconc(keyAndTick,def, strconc/reverse! xtralines),:acc]
   reverse acc
 
 htGlossSearch(htPage,junk) ==  htGloss htpLabelInputString(htPage,'filter)
@@ -198,8 +198,8 @@ htGreekSearch(filter) ==
   for x in names repeat
     superMatch?(filter,PNAME x) => matches := [x,:matches]
     nonmatches := [x,:nonmatches]
-  matches    := nreverse matches
-  nonmatches := nreverse nonmatches
+  matches    := reverse! matches
+  nonmatches := reverse! nonmatches
   htInitPage('"Greek Names",nil)
   null matches =>
     htInitPage(['"Greek names matching search string {\em ",ss,'"}"],nil)
@@ -231,8 +231,8 @@ htTextSearch(filter) ==
   for x in lines repeat
     superMatch?(filter,x) => matches := [x,:matches]
     nonmatches := [x,:nonmatches]
-  matches    := nreverse matches
-  nonmatches := nreverse nonmatches
+  matches    := reverse! matches
+  nonmatches := reverse! nonmatches
   htInitPage('"Text Matches",nil)
   null matches =>
     htInitPage(['"Lines matching search string {\em ",s,'"}"],nil)
-- 
cgit v1.2.3