[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
	2	(fn* (exp)
	3	`(let* [start_FIXME (time-ms)
	4	ret_FIXME ~exp]
	5	(do
	6	(prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
	7	ret_FIXME))))