blob: e00d2efd33e058688fe4b4af7b3b9a970999d0de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(if (= "make" *host-language*)
(defmacro! time
(fn* (exp)
`(let* [start_FIXME (time-secs)
ret_FIXME ~exp]
(do
(prn (str "Elapsed time: " (- (time-secs) start_FIXME) "000 msecs"))
ret_FIXME))))
(defmacro! time
(fn* (exp)
`(let* [start_FIXME (time-ms)
ret_FIXME ~exp]
(do
(prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
ret_FIXME)))))
|
