RosettaCodeData/Task/Runtime-evaluation-In-an-environment/Clojure/runtime-evaluation-in-an-environment-3.clj

(defn eval-with-x [program a b]
  (let [func (eval `(fn [~'x] ~program))]
    (- (func b) (func a))))