[jackhill/mal.git] / perf.mal

(defmacro! time
  (fn* (exp)
    `(let* (start_FIXME (time-ms)
            ret_FIXME ~exp)
      (do
        (prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
        ret_FIXME))))
Commit	Line	Data
f4c8a091 JM	1	(defmacro! time
f4c8a091 JM	2	(fn* (exp)
7f567f36 JM	3	`(let* (start_FIXME (time-ms)
7f567f36 JM	4	ret_FIXME ~exp)
f4c8a091 JM	5	(do
	6	(prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
	7	ret_FIXME))))