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

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

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