suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lexer tweak to get named procedure

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-26 09:45:20 -04:00
parent 7123996b30
commit fae6e273ed
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/parser-tools/lex.rkt
View File

@ -132,6 +132,7 @@
(syntax-property (syntax-property
(syntax/loc stx (syntax/loc stx
(let ([name act] ...) (let ([name act] ...)
(let ([proc
(lexer-body start-state-stx (lexer-body start-state-stx
trans-table-stx trans-table-stx
(vector act-name ...) (vector act-name ...)
@ -139,7 +140,9 @@
spec-act-stx spec-act-stx
has-comment-act?-stx has-comment-act?-stx
spec-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-use
disappeared-uses))))))))) disappeared-uses)))))))))