lexer tweak to get named procedure

original commit: fae6e273eda6188e34f38553136d374ade3807dd
14 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,14 +132,17 @@
                 (syntax-property
                  (syntax/loc stx
 		    (let ([name act] ...)
-		      (lexer-body start-state-stx 
-				  trans-table-stx
-				  (vector act-name ...)
-				  no-lookahead-stx
-				  spec-act-stx
-				  has-comment-act?-stx
-				  spec-comment-act-stx
-				  eof-act-stx)))
+                      (let ([proc
+                             (lexer-body start-state-stx 
+                                         trans-table-stx
+                                         (vector act-name ...)
+                                         no-lookahead-stx
+                                         spec-act-stx
+                                         has-comment-act?-stx
+                                         spec-comment-act-stx
+                                         eof-act-stx)])
+                        ;; reverse eta to get named procedures:
+                        (lambda (port) (proc port)))))
                  'disappeared-use
                  disappeared-uses)))))))))