Fix: `spy` double-evaluation

This commit is contained in:
Peter Taoussanis 2013-02-03 01:09:46 +07:00
parent a7b41a6f2d
commit bbbaf036b5
1 changed files with 1 additions and 1 deletions

View File

@ -319,7 +319,7 @@
([level expr] `(spy ~level '~expr ~expr)) ([level expr] `(spy ~level '~expr ~expr))
([level name expr] ([level name expr]
`(try `(try
(let [result# ~expr] (log ~level ~name ~expr) result#) (let [result# ~expr] (log ~level ~name result#) result#)
(catch Exception e# (catch Exception e#
(log ~level '~expr (str "\n" (stacktrace/pst-str e#))) (log ~level '~expr (str "\n" (stacktrace/pst-str e#)))
(throw e#))))) (throw e#)))))