diff options
Diffstat (limited to '')
-rw-r--r-- | module/util/time.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/module/util/time.scm b/module/util/time.scm new file mode 100644 index 00000000..004cb6dc --- /dev/null +++ b/module/util/time.scm @@ -0,0 +1,16 @@ +(define-module (util time) + :export (report-time!)) + + +(define report-time! + (let ((last 0)) + (lambda (fmt . args) + (let ((run (get-internal-run-time)) + ; (real (get-internal-real-time)) + ) + (format (current-error-port) "~7,4fs (+ ~,4fs) │ ~?~%" + (/ run internal-time-units-per-second) + (/ (- run last) internal-time-units-per-second) + ;; (/ real internal-time-units-per-second) + fmt args) + (set! last run))))) |