blob: 004cb6dc2175a28eb8a5da67e7da5c7c0e039f15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)))))
|