From 5521671cdf9c64efe8f73f4026ab0c7bf4dbf018 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 29 Aug 2009 15:29:02 +0000
Subject:

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

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

diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 79c7e905..fc811e17 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -217,13 +217,11 @@
             (SETQ |$stack| (CONS (NREVERSE |$stack|) |a|))
             (|bpPush|
                 (FUNCALL |g|
-                         (|bfListOf|
-                             (CONS (|bpPop3|)
-                                   (CONS (|bpPop2|) (|bpPop1|)))))))
+                         (CONS (|bpPop3|) (CONS (|bpPop2|) (|bpPop1|))))))
            (#0='T T)))
         (#0# NIL)))))
 
-(DEFUN |bpList| (|f| |str1| |g|)
+(DEFUN |bpList| (|f| |str1|)
   (PROG (|a|)
     (DECLARE (SPECIAL |$stack|))
     (RETURN
@@ -239,11 +237,9 @@
                  (RETURN NIL))
                 ('T 0)))
             (SETQ |$stack| (CONS (NREVERSE |$stack|) |a|))
-            (|bpPush|
-                (FUNCALL |g|
-                         (CONS (|bpPop3|) (CONS (|bpPop2|) (|bpPop1|))))))
-           (#0='T (|bpPush| (FUNCALL |g| (LIST (|bpPop1|)))))))
-        (#0# (|bpPush| (FUNCALL |g| NIL)))))))
+            (|bpPush| (CONS (|bpPop3|) (CONS (|bpPop2|) (|bpPop1|)))))
+           (#0='T (|bpPush| (LIST (|bpPop1|))))))
+        (#0# (|bpPush| NIL))))))
 
 (DEFUN |bpOneOrMore| (|f|)
   (PROG (|a|)
@@ -1139,8 +1135,7 @@
   (AND (|bpName|)
        (OR (AND (|bpEqKey| 'COLON) (OR (|bpApplication|) (|bpTrap|))
                 (|bpPush| (|bfLocal| (|bpPop2|) (|bpPop1|))))
-           (AND (|bpEqKey| 'DOT)
-                (|bpList| #'|bpPrimary| 'DOT #'|bfListOf|)
+           (AND (|bpEqKey| 'DOT) (|bpList| #'|bpPrimary| 'DOT)
                 (|bpChecknull|)
                 (|bpPush| (|bfTuple| (CONS (|bpPop2|) (|bpPop1|)))))
            T)))
-- 
cgit v1.2.3