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

*** empty log message ***

Browse Source 
original commit: a29ebfe279e14ebf67cdacd763e734a38bb303ee
tokens
Scott Owens 21 years ago
parent ea7676e8aa
commit 32b3bac532
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

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

@ -65,9 +65,9 @@
(spec-act (spec-act
(get-special-action spec/re-act-lst 'special #'(void))) (get-special-action spec/re-act-lst 'special #'(void)))
(spec-error-act (spec-error-act
(get-special-action spec/re-act-lst 'special-error #f)) (get-special-action spec/re-act-lst 'special-error #'#f))
(spec-comment-act (spec-comment-act
(get-special-action spec/re-act-lst 'special-comment #f)) (get-special-action spec/re-act-lst 'special-comment #'#f))
(re-act-lst (re-act-lst
(filter-out-specials spec/re-act-lst (filter-out-specials spec/re-act-lst
'(special special-comment special-error)))) '(special special-comment special-error))))
@ -81,10 +81,10 @@
(wrap-action spec-act 'special #'here spec-act)) (wrap-action spec-act 'special #'here spec-act))
(has-error-act?-stx (if spec-error-act #t #f)) (has-error-act?-stx (if spec-error-act #t #f))
(spec-error-act-stx (spec-error-act-stx
(wrap-action spec-act 'exception #'here spec-error-act)) (wrap-action spec-error-act 'exception #'here spec-error-act))
(has-comment-act?-stx (if spec-comment-act #t #f)) (has-comment-act?-stx (if spec-comment-act #t #f))
(spec-comment-act-stx (spec-comment-act-stx
(wrap-action spec-act (gensym) #'here spec-comment-act)) (wrap-action spec-comment-act (gensym) #'here spec-comment-act))
(wrap? wrap?)) (wrap? wrap?))
(syntax (syntax
(lexer-body start-state-stx (lexer-body start-state-stx

Write Preview
Loading…
Cancel
Save