rdsr · November 1, 2010 09:00
diff --git a/contextual_eval.clj b/contextual_eval.clj
 (defn contextual-eval [ctx expr] ;; from Joy of clojure
  (eval 
    `(let ~(vec (mapcat #(list % `('~ctx '~%)) (keys ctx))) 
      ~expr)))


 (defn contextual-eval  ;; alternative
  [ctx expr]
  (eval
   `(let ~(vec (apply concat ctx))
      ~expr)))
	(defn contextual-eval [ctx expr] ;; from Joy of clojure
	(eval
	`(let ~(vec (mapcat #(list % `('~ctx '~%)) (keys ctx)))
	~expr)))


	(defn contextual-eval ;; alternative
	[ctx expr]
	(eval
	`(let ~(vec (apply concat ctx))
	~expr)))