lexer tweak to get named procedure

original commit: fae6e273eda6188e34f38553136d374ade3807dd

collects/parser-tools/lex.rkt

@@ -132,6 +132,7 @@
                  (syntax-property
                   (syntax/loc stx
 		    (let ([name act] ...)
+                      (let ([proc
                              (lexer-body start-state-stx 
                                          trans-table-stx
                                          (vector act-name ...)
@@ -139,7 +140,9 @@
                                          spec-act-stx
                                          has-comment-act?-stx
                                          spec-comment-act-stx
-				  eof-act-stx)))
+                                         eof-act-stx)])
+                        ;; reverse eta to get named procedures:
+                        (lambda (port) (proc port)))))
                   'disappeared-use
                   disappeared-uses)))))))))