*** empty log message ***

original commit: 42f195d681bf29e3c61f8d9b572b94b9955fc95e

collects/parser-tools/private-yacc/parser-builder.ss

@@ -122,14 +122,14 @@
                    (let ((action (find-action stack ip)))
                      (cond
                        ((shift? action)
-                        (printf "shift:~a~n" (shift-state action))
+                        ;; (printf "shift:~a~n" (shift-state action))
                         (let ((val (if (token? ip)
                                        (token-value ip)
                                        #f)))
                           (loop (cons (shift-state action) (cons val stack))
                                 (get-token))))
                        ((reduce? action)
-                        (printf "reduce:~a~n" (reduce-prod-num action))
+                        ;; (printf "reduce:~a~n" (reduce-prod-num action))
                         (let-values (((new-stack args)
                                       (reduce-stack stack 
                                                     (reduce-rhs-length action)
@@ -144,7 +144,7 @@
                                               new-stack))
                                   ip))))
                        ((accept? action)
-                        (printf "accept~n")
+                        ;; (printf "accept~n")
                         (cadr stack))
                        (else 
                         (err)