Finish at 100%

2023-04-06 20:24:18 +02:00 · 2023-04-06 20:24:18 +02:00 · 754f81703e
commit 754f81703e
parent 8a43dd715c
1 changed files with 3 additions and 1 deletions
--- a/src/mailman.scm
+++ b/src/mailman.scm
@ -97,7 +97,9 @@
 		 (res '())
 		 (idx 0))
 	(if (null? lsts)
-	    res
+	    (let ()
+	      (progress%-advance 1)
+	      (reverse res))
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)