*** empty log message ***

original commit: 263c4ab284f3d2d4e1879eba03d3f901f557071b

collects/parser-tools/lex.ss

@@ -41,11 +41,11 @@
       (syntax/loc action
         (lambda (start-pos-p end-pos-p lexeme-p return-without-pos-p input-port-p)
           (syntax-parameterize 
-           ((start-pos (lambda (x) #'start-pos-p))
+           ((start-pos (make-rename-transformer #'start-pos-p))
-            (end-pos (lambda (x) #'end-pos-p))
+            (end-pos (make-rename-transformer #'end-pos-p))
-            (lexeme (lambda (x) #'lexeme-p))
+            (lexeme (make-rename-transformer #'lexeme-p))
-            (return-without-pos (lambda (x) #'return-without-pos-p))
+            (return-without-pos (make-rename-transformer #'return-without-pos-p))
-            (input-port (lambda (x) #'input-port-p)))
+            (input-port (make-rename-transformer #'input-port-p)))
            action-stx)))))
         
   (define-for-syntax (make-lexer-trans wrap?)