Could we have a msg arg to time?

Question

Very handy in CLJC projects especially to log long running operations. Happy to do PR(s).

  [expr msg]
  `(let [start# (. System (nanoTime))
         ret# ~expr]
     (prn (str msg (/ (double (- (. System (nanoTime)) start#)) 1000000.0) " msecs"))
     ret#))

Even better would be fmt-msg. (format msg-msg (/ (double (- (. System (nanoTime)) start#)) 1000000.0))

Answer 1

I think if you want something more involved than what time does now, you should probably be rolling your own.