Unbreak :compare-fn.

Author: cresh

src/active/clojure/match.clj

@@ -256,7 +256,7 @@
 
 (s/def ::regex regex?)
 (s/def ::compare-fn-token #{:compare-fn})
-(s/def ::fn? #(or (ifn? %) (ifn? (eval %))))
+(s/def ::fn? any?)
 (s/def ::compare-fn (s/cat :compare-fn ::compare-fn-token :fn ::fn?))
 
 (s/def ::or-token #{:or})

test/active/clojure/match_test.clj

@@ -274,7 +274,8 @@
              ((p/map-matcher [(:x (:compare-fn even?))] ::even)
               {:x 42})))))
 
-;; FIXME this should work
-;; (t/deftest closes-over-outer-variables-test
-;;   (let [evt {:x "x"}]
-;;     (p/map-matcher [(:x (:compare-fn #(= % (:x evt))))] x)))
+(t/deftest closes-over-outer-variables-test
+  (let [evt {:x "x"}]
+    (t/is (= "x"
+             ((p/map-matcher [(:x (:compare-fn #(= % (:x evt))))] x)
+              evt)))))