*** empty log message ***

original commit: c56dbc8eebdd50a739de3e329a9ddabc6415aec5
23 years ago · 6b9c407e57
parent 86861d05db
commit 6b9c407e57
1 changed files with 4 additions and 4 deletions
--- a/collects/parser-tools/private-yacc/parser-builder.ss
+++ b/collects/parser-tools/private-yacc/parser-builder.ss
@ -115,10 +115,10 @@
               (lambda (get-token)
                 (let loop ((stack (list 0))
                            (ip (get-token)))
-                   (display stack)
+                   ;;(display stack)
-                   (newline)
+                   ;;(newline)
-                   (display (if (token? ip) (token-name ip) ip))
+                   ;;(display (if (token? ip) (token-name ip) ip))
-                   (newline)
+                   ;;(newline)
                   (let ((action (find-action stack ip)))
                     (cond
                       ((shift? action)