Use new with-mbase-progress% in new static HTML export.

This commit is contained in:
Dominik Pantůček 2023-06-19 08:59:15 +02:00
parent 350f7eca60
commit 53cfd1fd88
2 changed files with 7 additions and 3 deletions

View file

@ -35,7 +35,8 @@
(chicken base)
(chicken format)
brmember
util-dir)
util-dir
mbase)
(define (print-html-member mr)
(print "<html>")
@ -54,6 +55,8 @@
(define (gen-html-members mb dir)
(ensure-directory dir)
#f)
(with-mbase-progress%
mb dir mr
(print mr)))
)