Finish mbase-dir renaming.
This commit is contained in:
parent
30d848ed9f
commit
ee8aa95e24
3 changed files with 11 additions and 11 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue