Skip to content

Instantly share code, notes, and snippets.

@jstaffans

jstaffans/assoc-time.clj

Created May 11, 2015 14:26
Show Gist options
  • Save jstaffans/adff4c9a4343b05bd214 to your computer and use it in GitHub Desktop.
Save jstaffans/adff4c9a4343b05bd214 to your computer and use it in GitHub Desktop.
Download ZIP
assoc-time macro
Raw
assoc-time.clj
(defmacro assoc-time
"Evaluates expr and assocs the time it took in msecs with the result of expr."
[expr]
`(let [start# (System/currentTimeMillis)
ret# ~expr]
(assoc ret# :time (- (System/currentTimeMillis) start#))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment