let.clj

(defmacro
  let
  "Monadic let for the dynamically loaded test.check monad"
  [bindings & body]
  (cond

    (not (and (vector? bindings) (even? (count bindings))))
    (throw
     (ex-info "Bindings must be a vector with an even number of elements"
              {:bindings bindings, :body body}))

    (empty? bindings)
    `(do ~@body)

    :else
    (clojure.core/let [[var val & other-bindings] bindings]
      `(gen/bind ~val (fn [~var] (let ~other-bindings ~@body))))))