Use keyword as key in with-let

This commit is contained in:
Dan Holmsand 2015-10-04 10:39:18 +02:00
parent 6ad55160eb
commit 69e39bf6f7
1 changed files with 1 additions and 1 deletions

View File

@ -17,7 +17,7 @@
(defmacro with-let [bindings & body] (defmacro with-let [bindings & body]
(assert (vector? bindings)) (assert (vector? bindings))
(let [v (gensym "with-let") (let [v (gensym "with-let")
k (str v) k (keyword v)
init (gensym "init") init (gensym "init")
bs (into [init `(zero? (alength ~v))] bs (into [init `(zero? (alength ~v))]
(map-indexed (fn [i x] (map-indexed (fn [i x]