mbutterick
/
br-parser-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
original commit: cc6b1b1297dafa402acf3b9c2801eed08e1be9e1
tokens
Scott Owens 23 years ago
parent 0ead202815
commit 55f1ecbe8d
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File

22
collects/parser-tools/lex.ss
Unescape Escape View File

@ -39,10 +39,24 @@
(no-lookahead-stx (table-no-lookahead table)) (no-lookahead-stx (table-no-lookahead table))
(actions-stx `(vector ,@(vector->list (table-actions table))))) (actions-stx `(vector ,@(vector->list (table-actions table)))))
(if wrap? (if wrap?
(syntax (lambda (lb) (syntax
(lexer-body lb start-state-stx trans-table-stx eof-table-stx actions-stx no-lookahead-stx #t))) (let-values (((a b c d e)
(syntax (lambda (lb) (values start-state-stx
(lexer-body lb start-state-stx trans-table-stx eof-table-stx actions-stx no-lookahead-stx #f))))))))))))) trans-table-stx
eof-table-stx
actions-stx
no-lookahead-stx)))
(lambda (lb)
(lexer-body lb a b c d e #t))))
(syntax
(let-values (((a b c d e)
(values start-state-stx
trans-table-stx
eof-table-stx
actions-stx
no-lookahead-stx)))
(lambda (lb)
(lexer-body lb a b c d e #f))))))))))))))
(values (values
(build-lexer #f) (build-lexer #f)
(build-lexer #t)))) (build-lexer #t))))

Write Preview
Loading…
Cancel
Save