Add global count.

src/progress.scm

@@ -184,15 +184,15 @@
        (lambda () body ...)))))
 
  ;; Runs multiple partial progresses
- (define (run-with-progresses% echo? name proc)
+ (define (run-with-progresses% echo? name count proc)
    (proc))
 
  ;; Syntax wrapper
  (define-syntax with-progresses%
    (syntax-rules ()
-     ((_ echo? name body ...)
+     ((_ echo? name count body ...)
       (run-with-progresses%
-       echo? name
+       echo? name count
        (lambda () body ...)))))
 
  ;; Adds name to list of partial progress names, uses the same