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

Use 3-argument dict-map mapping function.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 10:16:32 +02:00
parent d58a84e26e
commit a195b2d4aa
2 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
members-base.scm
View file

@ -68,11 +68,9 @@
progress? "members"
(let* ((fss (load-members-dir dn))
(tot (sub1 (length (dict-keys fss))))
(prg 0)
(mb0 (dict-map
(lambda (symfn symlinks)
(lambda (symfn symlinks prg)
(progress%-advance (/ prg tot))
(set! prg (add1 prg))
(members-dir-load-member dn
symfn
symlinks))