brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use new cond-expand.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 23:03:24 +02:00
parent ce1752f6aa
commit 6638f7d8fb
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/progress.scm
View file

@ -45,7 +45,7 @@
(chicken base)
(chicken format)
(chicken port)
(chicken time))
util-time)
;; Parameterized current progress string
(define *current-progress* (make-parameter #f))
@ -151,10 +151,10 @@
(*current-progress%-value* 0)
(*current-progress%-last-value* #f)
(*current-progress%-range* (cons 0 1)))
(let ((start (current-milliseconds)))
(let ((start (current-util-milliseconds)))
(print-current-progress%)
(let ((result (thunk))
(stop (current-milliseconds)))
(stop (current-util-milliseconds)))
(print-current-progress% (sprintf " ~A ms" (- stop start)))
(when echo?
(newline))