Fix indentation

remotes/jackfirth/master
Jack Firth 3 years ago
parent bd8fd280f6
commit c588b40a23

@ -270,7 +270,8 @@
(define starts (map (λ (x) (non-term (gensym) #f)) start-syms)) (define starts (map (λ (x) (non-term (gensym) #f)) start-syms))
(define end-non-terms (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 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)]) [end-non-term (in-list end-non-terms)])
(list (prod start (vector end-non-term) #f #f #'values)))) (list (prod start (vector end-non-term) #f #f #'values))))
(define new-prods (define new-prods

Loading…
Cancel
Save