diff options
Diffstat (limited to 'perf.mal')
| -rw-r--r-- | perf.mal | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/perf.mal b/perf.mal new file mode 100644 index 0000000..e00d2ef --- /dev/null +++ b/perf.mal @@ -0,0 +1,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))))) |