log sections

ciste · Aug 27, 2012 · 2da6f07 · 2da6f07
1 parent d30f33b
commit 2da6f07
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ciste/sections.clj b/src/ciste/sections.clj
@@ -103,7 +103,7 @@ Example:
 
 (defn log-section
   [sym dispatch-val]
-  (log/debugf "%s %s"  sym dispatch-val))
+  (log/debugf "%s - %s" dispatch-val sym))
 
 (defmacro defsection
   [name dispatch-val binding-form & body]
@@ -122,7 +122,7 @@ Example:
             full-symbol# (symbol (str declared-ns# "/" method-name#))]
         `(defmethod ~full-symbol# ~dispatch-val#
            ~binding-form
-           (log-section '~full-symbol# '~dispatch-val#)
+           (log-section '~name# '~dispatch-val#)
            ~@body))
       (throw (IllegalArgumentException. (str "Can not resolve section: " name))))))