Factor out with-mbase-progress.

src/export-wiki-compat.scm

@@ -81,21 +81,8 @@
  ;; Generates all member files in given directory
  (define (gen-web-static mb dir)
    (ensure-directory dir)
-   (let* ((members-list (find-members-by-predicate mb brmember-existing?))
-	  (mlen0 (length members-list))
-	  (mlen (if (> mlen0 0)
-		    mlen0
-		    1)))
-     (with-progress%
-      #t dir
-      (let loop ((mb members-list)
-		 (i 0))
-	(if (not (null? mb))
-	    (let ()
-	      (progress%-advance (/ i mlen))
-	      (gen-web-static-member (car mb) dir)
-	      (loop (cdr mb)
-		    (add1 i))))
-	(progress%-advance 1)))))
+   (with-mbase-progress%
+    mb dir mr
+    (gen-web-static-member mr dir)))
 
  )