(refactoring) better defn-timed

sunng87 · Mar 23, 2015 · ec435d2 · ec435d2
1 parent 889d710
commit ec435d2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/src/timing/core.clj b/src/timing/core.clj
@@ -59,9 +59,5 @@
 (defmacro defn-timed
   "def a fucntion which is born timed"
   [name argvec & body]
-  (let [fname (gensym)
-        ns-qualified-name (str (ns-name *ns*) "/" name)]
-    `(do
-       (defn ~fname ~argvec ~@body)
-       (def ~name (timed-fn ~ns-qualified-name ~fname)))))
-
+  `(defn ~name ~argvec
+     (timed ~(str name) ~@body)))
diff --git a/test/timing/core_test.clj b/test/timing/core_test.clj
@@ -22,4 +22,3 @@
 (deftest defn-timed-test
   (let [t 1000]
     (is (= t (demofunction2 t)))))
-