From 620e2d0401eecb68292ec1ffc1b5d6b9e1cbb315 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 29 Aug 2009 13:07:26 +0000
Subject: 	* boot/ast.boot: More cleanup. 	* boot/parser.boot: Likewise. 
 * boot/translator.boot: Likewise.

---
 src/boot/strap/parser.clisp | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

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

diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index c4e3cd30..79c7e905 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -432,7 +432,7 @@
     ((MEMQ (|shoeTokType| |$stok|) '(INTEGER FLOAT))
      (PROGN (|bpPush| |$ttok|) (|bpNext|)))
     ((EQCAR |$stok| 'LISP)
-     (AND (|bpPush| (|bfReadLisp| |$ttok|)) (|bpNext|)))
+     (AND (|bpPush| (|%Lisp| |$ttok|)) (|bpNext|)))
     ((EQCAR |$stok| 'LISPEXP) (AND (|bpPush| |$ttok|) (|bpNext|)))
     ((EQCAR |$stok| 'LINE)
      (AND (|bpPush| (LIST '+LINE |$ttok|)) (|bpNext|)))
@@ -917,9 +917,7 @@
        T))
     ('T T)))
 
-(DEFUN |bpDef| ()
-  (AND (|bpName|) (|bpStoreName|) (|bpDefTail|)
-       (|bpPush| (|bfCompDef| (|bpPop1|)))))
+(DEFUN |bpDef| () (AND (|bpName|) (|bpStoreName|) (|bpDefTail|)))
 
 (DEFUN |bpDDef| () (AND (|bpName|) (|bpDefTail|)))
 
@@ -938,7 +936,7 @@
 (DEFUN |bpMDefTail| ()
   (AND (OR (|bpVariable|) (|bpTrap|)) (|bpEqKey| 'MDEF)
        (OR (|bpWhere|) (|bpTrap|))
-       (|bpPush| (|bfMDefinition| (|bpPop3|) (|bpPop2|) (|bpPop1|)))))
+       (|bpPush| (|%Macro| (|bpPop3|) (|bpPop2|) (|bpPop1|)))))
 
 (DEFUN |bpMdef| () (AND (|bpName|) (|bpStoreName|) (|bpMDefTail|)))
 
@@ -1157,7 +1155,7 @@
 (DEFUN |bpStruct| ()
   (AND (|bpEqKey| 'STRUCTURE) (OR (|bpName|) (|bpTrap|))
        (OR (|bpEqKey| 'DEF) (|bpTrap|)) (|bpTypeList|)
-       (|bpPush| (|bfStruct| (|bpPop2|) (|bpPop1|)))))
+       (|bpPush| (|%Structure| (|bpPop2|) (|bpPop1|)))))
 
 (DEFUN |bpTypeList| ()
   (OR (|bpPileBracketed| #'|bpTypeItemList|)
-- 
cgit v1.2.3