*** empty log message ***

original commit: 923b8b5c97d8c352cfc538cd43171a4452cbef50

collects/parser-tools/private-yacc/input-file-parser.ss

@@ -358,18 +358,18 @@
                                 (add1 (length non-terms)))))
           
           
-          (printf "nullable: {~a}~n~n"
+;          (printf "nullable: {~a}~n~n"
-                  (apply string-append 
+;                  (apply string-append 
-                         (let loop ((i 0))
+;                         (let loop ((i 0))
-                           (cond
+;                           (cond
-                             ((>= i (vector-length nulls)) null)
+;                             ((>= i (vector-length nulls)) null)
-                             ((vector-ref nulls i)
+;                             ((vector-ref nulls i)
-                              (cons
+;                              (cons
-                               (format "~a" 
+;                               (format "~a" 
-                                       (gram-sym-symbol
+;                                       (gram-sym-symbol
-                                        (list-ref (cons start non-terms) i)))
+;                                        (list-ref (cons start non-terms) i)))
-                               (loop (add1 i))))
+;                               (loop (add1 i))))
-                             (else (loop (add1 i)))))))
+;                             (else (loop (add1 i)))))))
           (make-grammar
            (list->vector prods)
            (apply append prods)