eval-with-bindings.clj

(defmacro eval-with-bindings [bindings form]
  (assert (even? (count bindings)) "an even number of forms in binding vector")
  (let [binding-pairs (partition 2 bindings)
        args (mapv first binding-pairs)
        vals (map second binding-pairs)]
    `((eval (fn ~args ~form))
      ~@vals)))

(let [foo inc]
  (eval '(foo 1)))
;;=> fails

(eval-with-bindings [foo inc] '(foo 1))
;;=> 2