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

Finish at 100%

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:24:18 +02:00
parent 8a43dd715c
commit 754f81703e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mailman.scm
View file

@ -97,7 +97,9 @@
(res '()) (res '())
(idx 0)) (idx 0))
(if (null? lsts) (if (null? lsts)
res (let ()
(progress%-advance 1)
(reverse res))
(let ((mln (car lsts))) (let ((mln (car lsts)))
(progress%-advance (/ idx total)) (progress%-advance (/ idx total))
(loop (cdr lsts) (loop (cdr lsts)