Use new with-mbase-progress% in new static HTML export.
This commit is contained in:
parent
350f7eca60
commit
53cfd1fd88
2 changed files with 7 additions and 3 deletions
|
@ -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)))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue