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 name expr]
`(try
(let [result# ~expr] (log ~level ~name ~expr) result#)
(let [result# ~expr] (log ~level ~name result#) result#)
(catch Exception e#
(log ~level '~expr (str "\n" (stacktrace/pst-str e#)))
(throw e#)))))