Run resyntax again

3 years ago · de06a5ed82
parent 434b104127
commit de06a5ed82
1 changed files with 3 additions and 4 deletions
--- a/parser-tools/cfg-parser.rkt
+++ b/parser-tools/cfg-parser.rkt
@ -594,10 +594,9 @@
                                                                       elem
                                                                       (λ () #f)))
                                                                    pat)])
-                                                        (andmap (λ (i)
+                                                        (for/and ([i (in-list l)]
-                                                                  (or (not i)
+                                                                  #:when i)
-                                                                      (andmap values (caddr i))))
+                                                          (andmap values (caddr i))))))
                                                                l))))
                                                pats (caddr old-list))))
                                   nt-ids patss)
                                  ;; Build a definition for each non-term: