*** empty log message ***

original commit: f3f21ca9acdac5b1235a543e066bb46b50a34eed

collects/parser-tools/private-yacc/table.ss

@@ -114,6 +114,7 @@
              (let ((sym (gram-sym-symbol (car gs/action)))
                    (act (cdr gs/action)))
               (cond
+                ((null? act) (void))
                 ((null? (cdr act))
                  (print-entry sym (car act) port))
                 (else

collects/parser-tools/private-yacc/yacc-helper.ss

@@ -64,7 +64,7 @@
   (define (display-yacc grammar tokens start precs port)
     (let-syntax ((p (syntax-rules ()
                       ((_ args ...) (fprintf port args ...)))))
-      (let* ((tokens (map syntax-local-value (syntax->list tokens)))
+      (let* ((tokens (map syntax-local-value tokens))
              (eterms (filter e-terminals-def? tokens))
              (terms (filter terminals-def? tokens))
              (term-table (make-hash-table))