Finish mbase-dir renaming.

This commit is contained in:
Dominik Pantůček 2023-04-13 20:38:19 +02:00
parent 30d848ed9f
commit ee8aa95e24
3 changed files with 11 additions and 11 deletions

View file

@ -95,14 +95,14 @@
.
,(with-progress%
progress? "members"
(let* ((fss (load-members-dir dn))
(let* ((fss (load-mbase-dir dn))
(tot (sub1 (length (ldict-keys fss))))
(mb0 (ldict-map
(lambda (symfn symlinks prg)
(progress%-advance (/ prg tot))
(members-dir-load-member dn
symfn
symlinks))
(mbase-dir-load-member dn
symfn
symlinks))
fss))
(mb1 (ldict-reduce (make-ldict)
(lambda (acc symfn mr)