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)))))