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

Signed-off-by: Rich Hickey <[email protected]>

Author: tobias

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)

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))))