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

(def ^:dynamic x nil)

(defn eval-with-x [program a b]
  (- (binding [x b] (eval program))
     (binding [x a] (eval program))))