diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-01-19 15:32:01 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-01-19 15:32:01 -0500 |
| commit | fd2bd1983aff198bdf973c9f66a5a06251230f5a (patch) | |
| tree | 91cf6dff417639c5f3e761e73ce8c822bc4642d9 | |
| parent | 430dd4fa711d0008137d7a82d4b4cd27b6e2d6d1 (diff) | |
elide implicit macro args &form &env in arglists metadata
| -rw-r--r-- | src/clj/clojure/core.clj | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 99c7bd15..f54994d9 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -174,6 +174,10 @@ (let [asig (fn [fdecl] (let [arglist (first fdecl) + ;elide implicit macro args + arglist (if (clojure.lang.Util/equals '&form (first arglist)) + (clojure.lang.RT/subvec arglist 2 (clojure.lang.RT/count arglist)) + arglist) body (next fdecl)] (if (map? (first body)) (if (next body) |