diff options
| -rw-r--r-- | src/clojure/contrib/def.clj | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj index f018aec2..2ad789e0 100644 --- a/src/clojure/contrib/def.clj +++ b/src/clojure/contrib/def.clj @@ -103,17 +103,17 @@ making private definitions more succinct."} arguments." [name macro-args] (let [[docstring macro-args] (if (string? (first macro-args)) - [(first macro-args) (next macro-args)] - [nil macro-args]) - [attr macro-args] (if (map? (first macro-args)) - [(first macro-args) (next macro-args)] - [{} macro-args]) - attr (if docstring - (assoc attr :doc docstring) - attr) - attr (if (meta name) - (conj (meta name) attr) - attr)] + [(first macro-args) (next macro-args)] + [nil macro-args]) + [attr macro-args] (if (map? (first macro-args)) + [(first macro-args) (next macro-args)] + [{} macro-args]) + attr (if docstring + (assoc attr :doc docstring) + attr) + attr (if (meta name) + (conj (meta name) attr) + attr)] [(with-meta name attr) macro-args])) ; defnk by Meikel Brandmeyer: |