Skip to content

Commit

Permalink
Fix wrong arity on logf calling log*.
Browse files Browse the repository at this point in the history
  • Loading branch information
Alexander Taggart committed Jul 6, 2011
1 parent 43cf4c6 commit 32b7077
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 1 deletion.
2 changes: 1 addition & 1 deletion src/main/clojure/clojure/tools/logging.clj
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -119,7 +119,7 @@
(if (impl-enabled? logger# ~level) (if (impl-enabled? logger# ~level)
(if (instance? Throwable ~x) ; type check only when enabled (if (instance? Throwable ~x) ; type check only when enabled
(log* logger# ~level ~x (format ~@more)) (log* logger# ~level ~x (format ~@more))
(log* logger# ~level (format ~x ~@more))))))) (log* logger# ~level nil (format ~x ~@more)))))))


(defmacro enabled? (defmacro enabled?
"Returns true if the specific logging level is enabled. Use of this function "Returns true if the specific logging level is enabled. Use of this function
Expand Down
10 changes: 10 additions & 0 deletions src/test/clojure/clojure/tools/test_logging.clj
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -189,6 +189,16 @@
"hello world"] "hello world"]
(peek @*entries*))))) (peek @*entries*)))))


(deftest logf-msg-no-optimize
(let [a "foo %s"
b "bar"]
(logger/logf :debug a b))
(is (= ["clojure.tools.test-logging"
:debug
nil
"foo bar"]
(peek @*entries*))))

(deftest logf-msg1 (deftest logf-msg1
(logger/logf :debug "hello") (logger/logf :debug "hello")
(is (= ["clojure.tools.test-logging" (is (= ["clojure.tools.test-logging"
Expand Down

0 comments on commit 32b7077

Please sign in to comment.