Clojure substring search

gistfile1.clj

(defn string-contains? 
  "Searches a string s for any number of sub-strings, returns true on the first found, false otherwise"
  [s sub & subs]
  (if subs
    (loop [subs (cons sub subs)]
      (if-not (empty? subs)
        (if-let [has-sub? (.contains s (first subs))]
          has-sub?
          (recur (rest subs)))
        false))
    (.contains s sub)))