Skip to content

Commit

Permalink
Fix generated arglists
Browse files Browse the repository at this point in the history
This is a fix for issue Netflix#831 (Netflix#831) which
is a blocker for http://dev.clojure.org/jira/browse/CLJ-1232. Instead of generating
:arglists as (list (quote [..])*), generate (quote ([..]*)). Tests still
pass and (doc command) works as intended. I have not directly tested
this with Clojure patched with CLJ-1232.
  • Loading branch information
daveray committed Aug 6, 2015
1 parent 05ea381 commit 11d5bad
Showing 1 changed file with 1 addition and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -410,7 +410,7 @@
group-key (str *ns*)
[m [params & body]] (split-def-meta opts)
m (if-not (contains? m :arglists)
(assoc m :arglists `(list (quote ~params)))
(assoc m :arglists (list 'quote `(~params)))
m)]
`(let [meta-options# (#'com.netflix.hystrix.core/extract-hystrix-command-options ~m)
run-fn# (fn ~name ~params ~@body)
Expand Down

0 comments on commit 11d5bad

Please sign in to comment.