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]
(assert (vector? bindings))
(let [v (gensym "with-let")
k (str v)
k (keyword v)
init (gensym "init")
bs (into [init `(zero? (alength ~v))]
(map-indexed (fn [i x]