From fb9cf086393b43d9a76ba3716363d809442dbe22 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 18 Oct 2001 07:32:05 +0000 Subject: [PATCH] *** empty log message *** original commit: 923b8b5c97d8c352cfc538cd43171a4452cbef50 --- .../private-yacc/input-file-parser.ss | 24 +++++++++---------- 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/collects/parser-tools/private-yacc/input-file-parser.ss b/collects/parser-tools/private-yacc/input-file-parser.ss index a586a5c..8e874b6 100644 --- a/collects/parser-tools/private-yacc/input-file-parser.ss +++ b/collects/parser-tools/private-yacc/input-file-parser.ss @@ -358,18 +358,18 @@ (add1 (length non-terms))))) - (printf "nullable: {~a}~n~n" - (apply string-append - (let loop ((i 0)) - (cond - ((>= i (vector-length nulls)) null) - ((vector-ref nulls i) - (cons - (format "~a" - (gram-sym-symbol - (list-ref (cons start non-terms) i))) - (loop (add1 i)))) - (else (loop (add1 i))))))) +; (printf "nullable: {~a}~n~n" +; (apply string-append +; (let loop ((i 0)) +; (cond +; ((>= i (vector-length nulls)) null) +; ((vector-ref nulls i) +; (cons +; (format "~a" +; (gram-sym-symbol +; (list-ref (cons start non-terms) i))) +; (loop (add1 i)))) +; (else (loop (add1 i))))))) (make-grammar (list->vector prods) (apply append prods)