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

add test and easy fix for cfg bug

Browse Source
John Clements 7 years ago
parent c9fd206a1c
commit c3c3dfc25b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File

11
parser-tools-lib/parser-tools/cfg-parser.rkt
Unescape Escape View File

@ -731,7 +731,7 @@
src-pos? src-pos?
(cons (car clauses) parser-clauses))]))))]) (cons (car clauses) parser-clauses))]))))])
#`(let ([orig-parse (parser #`(let ([orig-parse (parser
[error (lambda (a b c) [error (lambda (a b c . ignored)
(error 'cfg-parser "unexpected ~a token: ~a" b c))] (error 'cfg-parser "unexpected ~a token: ~a" b c))]
. #,parser-clauses)] . #,parser-clauses)]
[error-proc #,cfg-error]) [error-proc #,cfg-error])
@ -906,10 +906,15 @@
(list (position-token (list (position-token
(token-ZERO "zero") (token-ZERO "zero")
(position 2 2 5) (position 2 2 5)
(position 3 2 6)))))))) (position 3 2 6)))))))
(check-exn #px"unexpected BOGUS token: #f"
(λ ()(parse (sequence->tokenizer
(list (position-token
'BOGUS
(position 2 2 5)
(position 3 2 6))))))))
;; Tests used during development ;; Tests used during development

Write Preview
Loading…
Cancel
Save