first-truthy-fn

gistfile1.clj

;; this works fine

(defn- first-truthy-fn* [[preds & more-preds] args]
  (when pred
      (if (apply pred args) pred (recur more-preds args))))

(defn first-truthy-fn
  "Returns the first function in a seq of functions
  that evaluates to truthy for the given arguments -
  this shortciruits, only evaluating the functions 
  it needs to determine a result"
  [preds & args]
  (first-truthy-fn* preds args))

;; what's wrong with this?

(defn first-truthy-fn [preds & args]
  (loop [[p & more-ps] preds]
    (when p
      (if (apply p args) p (recur more-ps)))))