Fixed anonymous-fn rule

This commit is contained in:
Jonas Enlund 2012-03-08 21:18:47 +02:00
parent 58bcdea6e8
commit 278c42b999
2 changed files with 3 additions and 4 deletions

View file

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

View file

@ -11,9 +11,8 @@
(filter (complement ?pred) ?coll) (remove ?pred ?coll)
(filter #(not (?pred ?x)) ?coll) (remove ?pred ?coll)
;; fn -- TODO: doesn't work yet
(fn [. ?arg] (?fun . ?arg)) ?fun
(fn* [. ?args] (?fun . ?args)) ?fun
(fn ?args (?fun . ?args)) ?fun
(fn* ?args (?fun . ?args)) ?fun
})