Alts should be forms/seqs, single symbols, or strings

This commit is contained in:
Paul deGrandis 2012-03-08 13:45:22 -05:00
parent 58bcdea6e8
commit 14da585072

View file

@ -38,7 +38,10 @@
(when alt (when alt
{:expr expr {:expr expr
:rule rule :rule rule
:alt (seq alt) :alt (if (or (string? alt)
(not (sequential? alt)))
alt
(seq alt))
:line (-> expr meta :line)}))) :line (-> expr meta :line)})))
;; Loop over the rule set. ;; Loop over the rule set.