|
|
|
@ -270,7 +270,8 @@
|
|
|
|
|
(define starts (map (λ (x) (non-term (gensym) #f)) start-syms))
|
|
|
|
|
(define end-non-terms (map (λ (x) (non-term (gensym) #f)) start-syms))
|
|
|
|
|
(define parsed-prods (map parse-prods-for-nt (syntax->list prods)))
|
|
|
|
|
(define start-prods (for/list ([start (in-list starts)]
|
|
|
|
|
(define start-prods
|
|
|
|
|
(for/list ([start (in-list starts)]
|
|
|
|
|
[end-non-term (in-list end-non-terms)])
|
|
|
|
|
(list (prod start (vector end-non-term) #f #f #'values))))
|
|
|
|
|
(define new-prods
|
|
|
|
|