From c2f2e0b07680302c8fba506cbfa75eea16947ced Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 20:28:43 +0200 Subject: [PATCH] Initial change to 0 is always a change revisited. --- src/progress.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/progress.scm b/src/progress.scm index 0d33e3c..c80834b 100644 --- a/src/progress.scm +++ b/src/progress.scm @@ -143,8 +143,8 @@ (define (run-with-progress% echo? name thunk) (parameterize ((*current-progress%* name) (*current-progress%-echo?* echo?) - (*current-progress%-value* #f) - (*current-progress%-last-value* 0) + (*current-progress%-value* 0) + (*current-progress%-last-value* #f) (*current-progress%-range* (cons 0 1))) (print-current-progress%) (let ((result (thunk)))