Как предотвратить невыполнение обещания от подвески?

Question

Вот пример из Clojure для смелого и правды:

(time 
(let [butter-promise (promise)] 
    (doseq [butter [yak-butter-international butter-than-nothing baby-got-yak]] 
    (future (if-let [satisfactory-butter (satisfactory? (mock-api-call butter))] 
       (deliver butter-promise satisfactory-butter)))) 
    (println "And the winner is:" @butter-promise))) 

Что делать, если ни один из масла продуктов не удовлетворяют наши критерии?

Answer 1

(let [butter-promise (promise)] 
    ;; ... 
    (if-let [winner (deref butter-promise 10000 nil)] 
    (println "And the winner is:" winner) 
    (println "Butter timed out."))