Fixing contract gen when arg is a map destructuring form

clojure · Mar 4, 2013 · 18c2ec8 · 18c2ec8
1 parent 3e74e67
commit 18c2ec8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/core/contracts/impl/transformers.clj b/src/main/clojure/clojure/core/contracts/impl/transformers.clj
@@ -85,7 +85,9 @@
        (map (fn [arg]
               (if-let [hoc (get hocs arg)]
                 (list `partial (list* `fn (build-contract-body (:desc hoc))) arg)
-                arg))
+                (if (map? arg)
+                  (:as arg)
+                  arg)))
             (->> args (remove vargs?))))
       {::vargs has-vargs})))