From 593169a057096330856416708b968a9cd2c7f8c9 Mon Sep 17 00:00:00 2001 From: Paul Michael Bauer Date: Fri, 15 Apr 2011 20:35:03 -0700 Subject: [PATCH] Changes to clojure 1.3 alpha break the build (logging, trace). Judicious addition of :dynamic metadata. --- .../src/main/clojure/clojure/contrib/logging.clj | 1 + .../src/main/clojure/clojure/contrib/trace.clj | 1 + 2 files changed, 2 insertions(+), 0 deletions(-) diff --git a/modules/logging/src/main/clojure/clojure/contrib/logging.clj b/modules/logging/src/main/clojure/clojure/contrib/logging.clj index 99648a9..9479f1e 100644 --- a/modules/logging/src/main/clojure/clojure/contrib/logging.clj +++ b/modules/logging/src/main/clojure/clojure/contrib/logging.clj @@ -490,5 +490,6 @@ to obtain an instance satisfying the Log protocol. Defaults to the value returned from find-factory. Can be rebound to provide alternate logging implementations"} + ^:dynamic *log-factory* (find-factory)) diff --git a/modules/trace/src/main/clojure/clojure/contrib/trace.clj b/modules/trace/src/main/clojure/clojure/contrib/trace.clj index 0e53b4b..3be09ee 100644 --- a/modules/trace/src/main/clojure/clojure/contrib/trace.clj +++ b/modules/trace/src/main/clojure/clojure/contrib/trace.clj @@ -39,6 +39,7 @@ code is doing."} (def ^{:doc "Current stack depth of traced function calls."} + ^:dynamic *trace-depth* 0) (defn tracer -- 1.7.1