gistfile1.clj

(defn put!
  "Takes a `ch`, a `msg`, a fn that enables backpressure, one that disables it,
  and a no-arg function which, when invoked, closes the upstream source."
  ([ch msg suspend! resume! close!]
   (let [status (atom ::sending)]
     (async/put! ch msg
                 (fn [result]
                   (if-not result
                     (when close! (close!))
                     (do
                       (when (identical? @status ::paused)
                         ;; if it was paused resume
                         (resume!))
                       (reset! status ::sent)))))
     ;; it's still sending, means it's parked, so suspend source
     (when (compare-and-set! status ::sending ::paused)
       (suspend!))
     nil))
  ([ch msg suspend! resume!]
   (put! ch msg suspend! resume! nil)))
```

but know that I think of it more, I prefer your arguments style ... it's more anonymous to the side effect.