 -------------------------
 Detected 1 error\n"
            (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
-             (until-unsuccessful (s/explain-str (s/coll-of (s/fspec :args (s/cat :x int?) :ret int?))
-                                                [:foo])))))
+             (until-unsuccessful #(s/explain-str (s/coll-of (s/fspec :args (s/cat :x int?) :ret int?))
+                                                 [:foo])))))
     (testing "set ifn / ret failure"
       (is (= "-- Function spec failed -----------
 


-------------------------
Detected 1 error\n")
           (until-unsuccessful (expound/expound-str (s/coll-of :fspec-test/div) [my-div]))))))

(s/def :fspec-ret-test/my-int pos-int?)
(s/def :fspec-ret-test/plus (s/fspec

   (< (:ret %) (-> % :args :x)))"
                  :cljs "(fn [%] (< (:ret %) (-> % :args :x)))"))
           (binding [s/*explain-out* (expound/custom-printer {:print-specs? false})]
             (until-unsuccessful #(s/explain-str :fspec-fn-test/minus my-minus)))))

    (is (= (pf "-- Function spec failed -----------

