Threading macro and core.async

gistfile1.clj

(def c (chan))

(defn exception? [x] (instance? Exception x))
(defn throwable? [x] (instance? Throwable x))

(-> c
    (->> (map*< #(/ 5 %))
         (split (complement throwable?)))
    (-< (->> (first)
             (map*< (fn [x] (prn ":) " x)))
             (suck))
        (->> (second) 
             (map*< (fn [e] (prn ":( " e)))
             (suck))))

(put! c 0)