Simplified unify map creation

This commit is contained in:
Jonas Enlund 2012-03-08 22:01:30 +02:00
parent 37e7c021a2
commit 8287f276d7

View file

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