From 278c42b999af9a22d403905cce12361169739a78 Mon Sep 17 00:00:00 2001 From: Jonas Enlund Date: Thu, 8 Mar 2012 21:18:47 +0200 Subject: [PATCH] Fixed anonymous-fn rule --- src/jonase/kibit/core.clj | 2 +- src/jonase/kibit/rules/misc.clj | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/jonase/kibit/core.clj b/src/jonase/kibit/core.clj index 72b12c1..ca1c5f0 100644 --- a/src/jonase/kibit/core.clj +++ b/src/jonase/kibit/core.clj @@ -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. diff --git a/src/jonase/kibit/rules/misc.clj b/src/jonase/kibit/rules/misc.clj index b9feb2c..0fedc24 100644 --- a/src/jonase/kibit/rules/misc.clj +++ b/src/jonase/kibit/rules/misc.clj @@ -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 })