Restore {:as x} destructuring for empty lists [CLJ-1140]

tobias · richhickey · commit cdc037db3c14 · 2013-02-01T14:10:33.000-05:00
Signed-off-by: Rich Hickey &lt;richhickey@gmail.com&gt;
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -3991,7 +3991,7 @@
                              gmapseq (with-meta gmap {:tag 'clojure.lang.ISeq})
                              defaults (:or b)]
                          (loop [ret (-> bvec (conj gmap) (conj v)
-                                        (conj gmap) (conj `(if (seq? ~gmap) (clojure.lang.PersistentHashMap/create ~gmapseq) ~gmap))
+                                        (conj gmap) (conj `(if (seq? ~gmap) (clojure.lang.PersistentHashMap/create (seq ~gmapseq)) ~gmap))
                                         ((fn [ret]
                                            (if (:as b)
                                              (conj ret (:as b) gmap)
diff --git a/test/clojure/test_clojure/special.clj b/test/clojure/test_clojure/special.clj
@@ -27,3 +27,7 @@
         bar (fn [& options] (apply foo :x :b options))]
     (is (= (bar) :b))
     (is (= (bar :x :a) :a))))
+
+(deftest empty-list-with-:as-destructuring
+  (let [{:as x} '()]
+    (is (= {} x))))
