def: fix formatting for name-with-attributes, (with spaces for tab width of 8 rather than 4

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: