lexer tweak to get named procedure

original commit: fae6e273eda6188e34f38553136d374ade3807dd
13 years ago · 997ee78ce9
parent 509800c0df
commit 997ee78ce9
1 changed files with 11 additions and 8 deletions
--- a/collects/parser-tools/lex.rkt
+++ b/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)))))))))