Added @literal-algol{} and started an algol60 test suite (apologies

if there already was one that I didn't find). Also fixed syntax
error raising procedure.

closes PR 12859

original commit: c0b928c758cc64b7b902fbe38838d31a3c1bc008
tokens
Robby Findler 12 years ago
parent 3a4a952b98
commit e4eafd14e1

@ -485,7 +485,7 @@
[(_ clause ...) [(_ clause ...)
(let ([clauses (syntax->list #'(clause ...))]) (let ([clauses (syntax->list #'(clause ...))])
(let-values ([(start grammar cfg-error parser-clauses) (let-values ([(start grammar cfg-error parser-clauses)
(let ([all-toks (apply (let ([all-toks (apply
append append
(map (lambda (clause) (map (lambda (clause)
(syntax-case clause (tokens) (syntax-case clause (tokens)

Loading…
Cancel
Save