Fixed anonymous-fn rule
This commit is contained in:
parent
58bcdea6e8
commit
278c42b999
2 changed files with 3 additions and 4 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
||||
})
|
||||
|
||||
|
|
Loading…
Reference in a new issue