     (then promise' (fn [_]
                      (mapv deref promises)))))
 
-
 (defn any
   "Given an array of promises, return a promise
   that is fulfilled when first one item in the


(defn resolved?
  "Returns true if promise `p` is
  already successfuly resolved."
  [p]
  (resolved* p))

(defn pending?
  "Returns true if promise `p` is
  stil pending."
  [p]
  (pending* p))


;; Copyright (c) 2015 Andrey Antukh <niwi@niwi.nz>
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
