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

Initial change to 0 is always a change revisited.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:28:43 +02:00
parent 6633049987
commit c2f2e0b076
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/progress.scm
View file

@ -143,8 +143,8 @@
(define (run-with-progress% echo? name thunk) (define (run-with-progress% echo? name thunk)
(parameterize ((*current-progress%* name) (parameterize ((*current-progress%* name)
(*current-progress%-echo?* echo?) (*current-progress%-echo?* echo?)
(*current-progress%-value* #f) (*current-progress%-value* 0)
(*current-progress%-last-value* 0) (*current-progress%-last-value* #f)
(*current-progress%-range* (cons 0 1))) (*current-progress%-range* (cons 0 1)))
(print-current-progress%) (print-current-progress%)
(let ((result (thunk))) (let ((result (thunk)))