development
[software/python-on-guile.git] / modules / language / python / parser-tool.scm
index ec7b504d8a8bd57719f8012ee6a6502e8954571a..75da4298445c88ed5a5258b24e2848ee76ba2143 100644 (file)
   #:export (f-seq f-seq! f-or f-or! f-not f-not! f-true f-false f-cons f-cons*
                  f-list INDENT <p-lambda> f* ff* ff? f? ff+ f+
                  f-reg f-reg! f-tag f-tag! f-eof f-out f-and f-and!
-                 mk-token p-freeze parse
+                 mk-token p-freeze parse f-append
                  .. xx <p-cc>
                  f-pk))
 
 ;; Preliminary
-(define do-print #t)
+(define do-print #f)
 (define pp
   (case-lambda
-   ((s x)
-    (when do-print
-      (pretty-print `(,s ,(syntax->datum x))))
-    x)
-   ((x)
-    (when do-print
-      (pretty-print (syntax->datum x)))
-    x)))
+    ((s x)
+     (when do-print
+       (pretty-print `(,s ,(syntax->datum x))))
+     x)
+    ((x)
+     (when do-print
+       (pretty-print (syntax->datum x)))
+     x)))
 
 
 (begin
@@ -42,7 +42,5 @@
   ;; Sets up a standar parser functionals with INDENT field added
   (setup-parser
    <p-define> <p-lambda> <fail> <p-cc> <succeds> .. xx
-   X XL N M (0 0 0)
-   s-false s-true s-mk-seq s-mk-and s-mk-or
-   s-seq s-and s-and! s-and!! s-or 
-   pp))
+   X XL ((N 0) (M 0) (INDENT (list 0)))
+   s-false s-true s-mk-seq s-mk-and s-mk-or))