diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-09 23:47:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-09 23:47:05 +0100 |
| commit | 3b8565c33b58196ffe2e3dd8f23a73de57a268f2 (patch) | |
| tree | 9d3526ea9bcc2ba9a7eb797103549baeb3c3ce6c /module/util/time.scm | |
| parent | Cleanup in HTML chunked main. (diff) | |
| download | calp-3b8565c33b58196ffe2e3dd8f23a73de57a268f2.tar.gz calp-3b8565c33b58196ffe2e3dd8f23a73de57a268f2.tar.xz | |
Sprinkled in some time prints.
Diffstat (limited to 'module/util/time.scm')
| -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))))) |