          (error   [_ err] (error err))))))
 
   AsyncSeq
-  (received? [seq]
-    (.isRealized seq))
   (receive [seq success error]
     (doto seq
       (.receive

         (error   [_ err] (error err))))))

  Pipeline
  (received? [pipeline]
    (.isRealized pipeline))
  (receive [val success error]
    (doto val
      (.receive

    Receiver]))

(defprotocol DeferredValue
  (receive   [_ success error]))

(extend-protocol DeferredValue
  AsyncVal
  (receive [val success error]
    (doto val
      (.receive
