From aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 14:18:38 +0000
Subject: 	* boot/ast.boot: Miscellaneous cleanup. 	*
 boot/includer.boot: Likewise. 	* boot/parser.boot: Likewise. 	*
 boot/pile.boot: Likewise. 	* boot/scanner.boot: Likewise. 	*
 boot/translator.boot: Likewise.

---
 src/boot/parser.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index baf38b14..ce22eb37 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -79,7 +79,7 @@ bpNextToken() ==
   bpFirstToken()
  
 bpState()== [$inputStream,$stack,$bpParenCount,$bpCount]
---cons($inputStream,$stack)
+--[$inputStream,:$stack]
  
 bpRestore(x)==
   $inputStream:=first x
@@ -509,8 +509,8 @@ bpCancel()==
 
 bpAddTokens n==
   n=0 => nil
-  n>0=> cons(shoeTokConstruct("KEY","SETTAB",shoeTokPosn $stok),bpAddTokens(n-1))
-  cons(shoeTokConstruct("KEY","BACKTAB",shoeTokPosn $stok),bpAddTokens(n+1))
+  n>0=> [shoeTokConstruct("KEY","SETTAB",shoeTokPosn $stok),:bpAddTokens(n-1)]
+  [shoeTokConstruct("KEY","BACKTAB",shoeTokPosn $stok),:bpAddTokens(n+1)]
  
 bpExceptions()==
      bpEqPeek "DOT" or bpEqPeek "QUOTE" or
-- 
cgit v1.2.3