From cf391ef45e25c7d5a4f349752290af9550ff7f9d Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 10 Sep 2004 18:11:56 +0000 Subject: [PATCH] *** empty log message *** original commit: 63a9d0214c747e56a26d9b72dcb63472ef86dda3 --- collects/parser-tools/private-lex/token.ss | 4 ++-- collects/parser-tools/private-yacc/parser-builder.ss | 5 +++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/parser-tools/private-lex/token.ss b/collects/parser-tools/private-lex/token.ss index 722cbb3..e78467a 100644 --- a/collects/parser-tools/private-lex/token.ss +++ b/collects/parser-tools/private-lex/token.ss @@ -52,7 +52,7 @@ ((_ name (token ...)) (andmap identifier? (syntax->list (syntax (token ...)))) (with-syntax (((marked-token ...) - (map (make-syntax-introducer) + (map values #;(make-syntax-introducer) (syntax->list (syntax (token ...)))))) (quasisyntax/loc stx (begin @@ -73,7 +73,7 @@ #`(define (#,(make-ctor-name n) x) (make-token '#,n x)))) (syntax->list (syntax (token ...)))) - (define marked-token #f) ...)))) + #;(define marked-token #f) #;...)))) ((_ ...) (raise-syntax-error #f diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss index 64aa379..7014715 100644 --- a/collects/parser-tools/private-yacc/parser-builder.ss +++ b/collects/parser-tools/private-yacc/parser-builder.ss @@ -31,7 +31,8 @@ (syntax-case prods () (((_ rhs ...) ...) (syntax->list (syntax (rhs ... ...))))))) - (with-syntax (((term-group ...) + (with-syntax (((tmp ...) (map syntax-local-introduce term-binders)) + ((term-group ...) (map (lambda (tg) (syntax-property (datum->syntax-object tg #f) @@ -66,7 +67,7 @@ (syntax->list (syntax (term ... ...)))))) null))) #`(when #f - (let ((bind void) ...) + (let ((bind void) ... (tmp void) ...) (void bound ... ... term-group ... start ... end ... prec ...)))))) (define (build-parser filename src-pos suppress input-terms start end assocs prods)