From 7123c2aa973a96cfdd8a8afae08830577e66b0ee Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 19 May 2008 17:33:39 +0000
Subject: 	* boot/ast.boot: Cleanup. 	* boot/includer.boot:
 Likewise. 	* boot/parser.boot: Likewise. 	* boot/pile.boot: Likewise. 
 * boot/scanner.boot: Likewise. 	* boot/tokens.boot: Likewise. 	*
 boot/translator.boot: Likewise.

---
 src/boot/tokens.boot | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/boot/tokens.boot')

diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 9502190d..53dc38a9 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -33,8 +33,8 @@
 --
 
 import initial_-env
-module tokens
 namespace BOOTTRAN
+module tokens
 
 ++ Table of Boot keywords and their token name.
 shoeKeyWords == [  _
@@ -102,7 +102,7 @@ shoeKeyWords == [  _
 shoeKeyTableCons()==
    KeyTable:=MAKE_-HASHTABLE("CVEC")
    for st in shoeKeyWords repeat
-      HPUT(KeyTable,CAR st,CADR st)
+      HPUT(KeyTable,first st,second st)
    KeyTable
  
 shoeKeyTable:=shoeKeyTableCons()
@@ -196,7 +196,7 @@ for i in [      _
         ["GE"   ,">="], _
         ["SHOENE"  ,"^="] _
                    ]_
-       repeat SETF (GET(CAR i,'SHOEINF),CADR i)
+       repeat SETF (GET(first i,'SHOEINF),second i)
  
 
 ++ List of monoid operations and their neutral elements.
@@ -225,7 +225,7 @@ for i in [ _
       ["OR",      NIL]   _
                          ]
  
-       repeat SETF (GET(CAR i,'SHOETHETA),CDR i)
+       repeat SETF (GET(first i,'SHOETHETA),CDR i)
 
 for i in [ _
   ["and",          "AND"]  , _
@@ -286,7 +286,7 @@ for i in [ _
   ["SHOENE",        "/="], _
   ["T",               "T$"]   _
                                 ]
-       repeat SETF (GET(CAR i,'SHOERENAME),CDR i)
+       repeat SETF (GET(first i,'SHOERENAME),CDR i)
 
 -- For code written in `Old Boot', we would like to warn about
 -- the difference in renaming.
@@ -357,7 +357,7 @@ for i in [ _
   ["IN", "member"], _
   ["UNION", "union"]_
                      ]
-  repeat SETF (GET(CAR i,'OLD_-BOOT),CDR i)
+  repeat SETF (GET(first i,'OLD_-BOOT),CDR i)
 
 -- The following difference in renaming are verified to be OK.
 for i in [ _
@@ -410,4 +410,4 @@ for i in [ _
   ["streamName",        "CADR"] , _
   ["target",             "CAR"]  _
                              ] _
-       repeat SETF (GET(CAR i,'SHOESELFUNCTION),CADR i)
+       repeat SETF (GET(first i,'SHOESELFUNCTION),second i)
-- 
cgit v1.2.3