alandipert · March 17, 2012 18:37
diff --git a/locals.clj b/locals.clj
 (defmacro locals
  "Returns a map of locals, as keywords, to their values."
  []
  (let [locals (keys &env)]
    `(zipmap ~@(map vec [(map keyword locals) locals]))))

 (let [x 10]
  (let [y 20
        z (+ x y)]
    (locals)))

 ;=> {:x 10, :y 20, :z 30}
	(defmacro locals
	"Returns a map of locals, as keywords, to their values."
	[]
	(let [locals (keys &env)]
	`(zipmap ~@(map vec [(map keyword locals) locals]))))

	(let [x 10]
	(let [y 20
	z (+ x y)]
	(locals)))

	;=> {:x 10, :y 20, :z 30}