dead-go-thread.clj

(ns thheller.async-test
  (:use clojure.test)
  (:require [clojure.core.async :as async :refer (go >! <! >!! <!!)]))

(def c (async/chan))

(defn do-some-work [work]
  (throw (ex-info "no way" {:work work})))

(go (loop [work-done 0]
      (let [[reply-to work] (<! c)
            reply (do-some-work work)]
        (>! reply-to reply)
        (recur (inc work-done))
        )))

(let [me (async/chan)]
  (>!! c [me :work-work])
  (<!! me) ;; never returns
  )