From f60e3ba1e2e5626da7ead8aa67fa50a7f57b8305 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 25 Jan 2002 07:37:40 +0000 Subject: [PATCH] *** empty log message *** original commit: 2d30c43545cf26b9c25558e646dd3d658269c1b9 --- collects/parser-tools/private-yacc/parser-builder.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss index 0201979..e411ec0 100644 --- a/collects/parser-tools/private-yacc/parser-builder.ss +++ b/collects/parser-tools/private-yacc/parser-builder.ss @@ -29,9 +29,11 @@ (map syntax->list (syntax->list (syntax (((bound ...) ...) ...))))))))) (terms (get-term-list terms)) - (precs (syntax-case precs () - ((_ (__ term ...) ...) - (apply append (map syntax->list (syntax->list (syntax ((term ...) ...))))))))) + (precs (if precs + (syntax-case precs () + ((_ (__ term ...) ...) + (apply append (map syntax->list (syntax->list (syntax ((term ...) ...))))))) + null))) `(if #f (let ,(map (lambda (bind) `(,(strip bind) void)) (append terms binds))