From 997ee78ce9913155d3039379edd7df37800320db Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 26 Jul 2011 09:45:20 -0400 Subject: [PATCH] lexer tweak to get named procedure original commit: fae6e273eda6188e34f38553136d374ade3807dd --- collects/parser-tools/lex.rkt | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/collects/parser-tools/lex.rkt b/collects/parser-tools/lex.rkt index e71f634..6f1c3ca 100644 --- 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)))))))))