From 86861d05db18af0b127c914b7d86b1e358136965 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Tue, 13 Nov 2001 07:54:13 +0000 Subject: [PATCH] *** empty log message *** original commit: 42f195d681bf29e3c61f8d9b572b94b9955fc95e --- collects/parser-tools/private-yacc/parser-builder.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss index bd944dc..96b5d91 100644 --- a/collects/parser-tools/private-yacc/parser-builder.ss +++ b/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)