*** empty log message ***

original commit: 63a9d0214c747e56a26d9b72dcb63472ef86dda3

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

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)