A offer function that will timeout if the offer cannot be made

queue offer

(use 'clojure.core.async)

(defn offer [ch msg timeout-ms]
    "Blocks till the message can be placed on the queue and returns true otherwise returns false"
    (not 
       (nil? 
         (first (alts!! [(go (>! ch msg) msg) (timeout timeout-ms)])))))


;;lets test
(= false (offer (chan) 1 100))
;=> true

(= true (offer (chan 10) 1 100))
;=> true

even shorter thanks.

I did not know that you could send alt!! a [[ch msg]] resp argument sequence and have it call the channel with the correct message.