deque-blog · January 22, 2017 15:23
diff --git a/dsl_arithmetic_4_partial_eval.clj b/dsl_arithmetic_4_partial_eval.clj
 (defn replace-var
  [env x]
  (if (string? x) (get env x x) x))

 (defn partial-eval
  [env e]
  (walk/postwalk
    (comp optimize-mul optimize-add #(replace-var env %))
    e))
	(defn replace-var
	[env x]
	(if (string? x) (get env x x) x))

	(defn partial-eval
	[env e]
	(walk/postwalk
	(comp optimize-mul optimize-add #(replace-var env %))
	e))