From 76500d4a1b7ccc23469b193246482ee97103e949 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sun, 15 Sep 2002 21:36:29 +0000 Subject: [PATCH] *** empty log message *** original commit: 4742164533aa0afffb9c292179af3c20cd68c170 --- collects/parser-tools/yacc.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/parser-tools/yacc.ss b/collects/parser-tools/yacc.ss index abe19e6..8bb2ecd 100644 --- a/collects/parser-tools/yacc.ss +++ b/collects/parser-tools/yacc.ss @@ -214,7 +214,7 @@ (fix-error (lambda (stack tok ip get-token) - (printf "stack: ~a~n" stack) + ;;(printf "stack: ~a~n" stack) (letrec ((remove-input (lambda () (if (memq (token-name tok) ends) @@ -223,7 +223,7 @@ (let ((a (find-action stack tok ip))) (cond ((shift? a) - (printf "shift:~a~n" (shift-state a)) + ;;(printf "shift:~a~n" (shift-state a)) (cons (if src-pos (make-stack-frame (shift-state a) (token-value tok) @@ -235,7 +235,7 @@ #f)) stack)) (else - (printf "discard input:~a~n" tok) + ;;(printf "discard input:~a~n" tok) (set! ip (get-token)) (set! tok (input->token ip)) (remove-input))))))) @@ -244,7 +244,7 @@ (let ((a (find-action stack (make-token 'error #f) ip))) (cond ((shift? a) - (printf "shift:~a~n" (shift-state a)) + ;;(printf "shift:~a~n" (shift-state a)) (set! stack (cons (if src-pos @@ -259,7 +259,7 @@ stack)) (remove-input)) (else - (printf "discard state:~a~n" (car stack)) + ;;(printf "discard state:~a~n" (car stack)) (cond ((< (length stack) 2) (raise-read-error "parser: Cannot continue after error"