From b248654cba0d6c5ae213882837140358f92bab1c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 15:57:28 +0000
Subject: 	* boot/tokens.boot: Don't rename 'cons'. 	*
 interp/msg.boot: Remove uses of cons. 	* interp/postpar.boot: Likewise. 
 * interp/types.boot: Likewise.

---
 src/interp/incl.boot    | 2 +-
 src/interp/msg.boot     | 2 +-
 src/interp/postpar.boot | 4 ++--
 src/interp/types.boot   | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/incl.boot b/src/interp/incl.boot
index ebd71c2e..33bce836 100644
--- a/src/interp/incl.boot
+++ b/src/interp/incl.boot
@@ -327,7 +327,7 @@ incLude1 (:z) ==
                    Tail :=
                        [xlConStill (eb, str, lno,ufos,n),:Tail]
  
-                Head := cons (xlConsole(eb, str, lno,ufos), Head)
+                Head := [xlConsole(eb, str, lno,ufos),:Head]
                 [xlOK(eb,str,lno,ufos.0),:incAppend(Head,Tail)]
  
             info.2 = '"fin" =>
diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index a13df0c7..74b97dc2 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -120,7 +120,7 @@ processKeyedError msg ==
           CallerName 4,:erMsg]                  --temp
     msgImPr? msg =>
       msgOutputter msg
-    $ncMsgList := cons (msg, $ncMsgList)
+    $ncMsgList := [msg,:$ncMsgList]
  
 ---------------------------------
 --%getting info from db.
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot
index 311f1117..fc7ac484 100644
--- a/src/interp/postpar.boot
+++ b/src/interp/postpar.boot
@@ -39,11 +39,11 @@ module postpar
 
 ++ The type of parse trees.
 %ParseTree <=> 
-  %Number or %Symbol or %String or cons
+  %Number or %Symbol or %String or %Pair
 
 ++ The result of processing a parse tree.
 %ParseForm <=>
-  %Number or %Symbol or %String or cons
+  %Number or %Symbol or %String or %Pair
 
 $postStack := []
 
diff --git a/src/interp/types.boot b/src/interp/types.boot
index a9f67800..37c1d8e5 100644
--- a/src/interp/types.boot
+++ b/src/interp/types.boot
@@ -119,13 +119,13 @@ namespace BOOT
 
 %Sequence <=> SEQUENCE
 
-%Pair <=> cons
+%Pair <=> CONS
 
 %Maybe a <=> null or a
 
 --% Data structures for the compiler
 %Constructor <=> %Symbol                       -- constructor
-%Form <=> %Number or %Symbol or %String or cons -- input syntax form
+%Form <=> %Number or %Symbol or %String or %Pair -- input syntax form
 %Instantiation <=> [%Constructor,:%Form]       -- constructor instance
 %Env <=> %List                                 -- compiling env
 %Mode <=> %Symbol or %String or %List          -- type of forms
@@ -134,7 +134,7 @@ namespace BOOT
   [%Code,:[%Mode,:[%Env,:null]]]
 
 %Signature                      -- signature
-  <=> %Symbol or cons
+  <=> %Symbol or %Pair
 
 %Modemap <=> %List                             -- modemap
 
-- 
cgit v1.2.3