diff options
Diffstat (limited to 'src/clojure/contrib/trace.clj')
| -rw-r--r-- | src/clojure/contrib/trace.clj | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/clojure/contrib/trace.clj b/src/clojure/contrib/trace.clj index 70a20dbb..1ac00a70 100644 --- a/src/clojure/contrib/trace.clj +++ b/src/clojure/contrib/trace.clj @@ -77,6 +77,9 @@ code is doing."} arguments. Nested calls to deftrace'd functions will print a tree-like structure." [name & definition] - `(let [f# (fn ~@definition)] - (defn ~name [& args#] - (trace-fn-call '~name f# args#)))) + `(do + (def ~name) + (let [f# (fn ~@definition)] + (defn ~name [& args#] + (trace-fn-call '~name f# args#))))) + |