*** empty log message ***

original commit: 923b8b5c97d8c352cfc538cd43171a4452cbef50
23 years ago · fb9cf08639
parent 28a7fc60c9
commit fb9cf08639
1 changed files with 12 additions and 12 deletions
--- 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)