Skip to content
Browse files

Fixing contract gen when arg is a map destructuring form

  • Loading branch information...
1 parent 3e74e67 commit 18c2ec806daa1cb22416e2a81faa24595761ecb8 @fogus fogus committed Mar 4, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/main/clojure/clojure/core/contracts/impl/transformers.clj
4 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})))

0 comments on commit 18c2ec8

Please sign in to comment.
Something went wrong with that request. Please try again.