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

Start immediately.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:26:51 +02:00
parent 6c5f6b7119
commit cb648b260d
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/mailman.scm
View file

@ -91,6 +91,7 @@
(define (load-mailman-lists) (define (load-mailman-lists)
(with-progress% (with-progress%
#t "Mailman" #t "Mailman"
(progress%-advance 0)
(let* ((lists (list-mailman-lists)) (let* ((lists (list-mailman-lists))
(total (length lists))) (total (length lists)))
(let loop ((lsts lists) (let loop ((lsts lists)
@ -99,7 +100,9 @@
(if (null? lsts) (if (null? lsts)
(let () (let ()
(progress%-advance 1) (progress%-advance 1)
(reverse res)) ;; Will be prepended, therefore reversing result is a
;; bad idea!
res)
(let ((mln (car lsts))) (let ((mln (car lsts)))
(progress%-advance (/ idx total)) (progress%-advance (/ idx total))
(loop (cdr lsts) (loop (cdr lsts)