Permalink
Browse files

Reverted private fns to public

  • Loading branch information...
1 parent f2e6542 commit 4da99e9e51ee14f34ba4499af5091c235831b8f8 @lprefontaine lprefontaine committed Feb 23, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/main/clojure/clojure/tools/trace.clj
View
10 src/main/clojure/clojure/tools/trace.clj
@@ -193,7 +193,7 @@ such as clojure.core/+"
sform)))
(trace-value form)))
-(defn ^{:private true} trace-compose-exception
+(defn trace-compose-exception
"Re-create a new exception with a composed message from the given exception
and the message to be added. The exception stack trace is kept at a minimum."
[exception message]
@@ -222,7 +222,7 @@ such as clojure.core/+"
`(do
~@(map trace-form body)))
-(defn ^{:private true} trace-var
+(defn trace-var
"If the specified Var holds an IFn and is not marked as a macro, its
contents is replaced with a version wrapped in a tracing call;
otherwise nothing happens. Can be undone with untrace-var.
@@ -246,7 +246,7 @@ such as clojure.core/+"
(trace-fn-call vname % args)))
(alter-meta! assoc ::traced f)))))))
-(defn ^{:private true} untrace-var
+(defn untrace-var
"Reverses the effect of trace-var / trace-vars / trace-ns for the
given Var, replacing the traced function with the original, untraced
version. No-op for non-traced Vars.
@@ -264,7 +264,7 @@ such as clojure.core/+"
(alter-var-root (constantly ((meta v) ::traced)))
(alter-meta! dissoc ::traced))))))
-(defn ^{:private true} trace-vars
+(defn trace-vars
"Calls trace-var on each of the specified Vars.
The vs may be Var objects or symbols to be resolved in the current
@@ -273,7 +273,7 @@ such as clojure.core/+"
(doseq [v vs]
(trace-var v)))
-(defn ^{:private true} untrace-vars
+(defn untrace-vars
"Reverses the effect of trace-var / trace-vars / trace-ns for each
of the vs, replacing the traced functions with the original,
untraced versions."

0 comments on commit 4da99e9

Please sign in to comment.