From d108ca625d7523aee7943d8c38e1b4850d533e15 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 9 Nov 2001 00:48:39 +0000 Subject: [PATCH] *** empty log message *** original commit: c12011afc89bddf190e850dabd5594c66975e377 --- collects/parser-tools/private-yacc/parser-builder.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss index e0ff87f..10e3570 100644 --- a/collects/parser-tools/private-yacc/parser-builder.ss +++ b/collects/parser-tools/private-yacc/parser-builder.ss @@ -58,10 +58,10 @@ (let ((a (find-action stack 'error))) (cond ((shift? a) - (printf "shift:~a~n" (shift-state a)) + ;; (printf "shift:~a~n" (shift-state a)) (set! stack (cons (shift-state a) (cons #f stack)))) (else - (printf "discard-state:~a~n" (car stack)) + ;; (printf "discard-state:~a~n" (car stack)) (cond ((< (length stack) 3) (printf "Unable to shift error token~n") @@ -73,7 +73,7 @@ (let ((a (find-action stack ip))) (cond ((shift? a) - (printf "shift:~a~n" (shift-state a)) + ;; (printf "shift:~a~n" (shift-state a)) (cons (shift-state a) (cons (if (token? ip) (token-value ip) @@ -105,14 +105,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) @@ -127,7 +127,7 @@ new-stack)) ip)))) ((accept? action) - (printf "accept~n") + ;; (printf "accept~n") (cadr stack)) (else (err)