lexer tweak to get named procedure

This commit is contained in:
Matthew Flatt 2011-07-26 09:45:20 -04:00
parent 7123996b30
commit fae6e273ed

View File

@ -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)))))))))