From bcbd39f641f589f48b7b8b392fb151cbb1365ff5 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Tue, 19 Apr 2005 00:44:39 +0000 Subject: [PATCH] *** empty log message *** original commit: f3f21ca9acdac5b1235a543e066bb46b50a34eed --- collects/parser-tools/private-yacc/table.ss | 1 + collects/parser-tools/private-yacc/yacc-helper.ss | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/parser-tools/private-yacc/table.ss b/collects/parser-tools/private-yacc/table.ss index dde2864..be96a2a 100644 --- a/collects/parser-tools/private-yacc/table.ss +++ b/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 diff --git a/collects/parser-tools/private-yacc/yacc-helper.ss b/collects/parser-tools/private-yacc/yacc-helper.ss index d4a9823..4ffc007 100644 --- a/collects/parser-tools/private-yacc/yacc-helper.ss +++ b/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))