Start work on partial progresses coalesce.

src/bank-fio.scm

@@ -63,7 +63,7 @@
      (make-bank-transaction id date amount currency varsym message type
 			    account bank specsym)))
 
- ;; Loads Fio bank accound statement.
+ ;; Loads Fio bank account statement.
  (define (bank-fio-parse fn)
    (let ((csv (with-progress% #t fn (csv-parse fn))))
      (if csv

src/progress.scm

@@ -41,6 +41,11 @@
   run-with-progress%
   with-progress%
   progress%-advance
+
+  run-with-progresses%
+  with-progresses%
+  run-with-partial-progress%
+  with-partial-progress%
   )
 
  (import scheme
@@ -178,6 +183,31 @@
        echo? name
        (lambda () body ...)))))
 
+ ;; Runs multiple partial progresses
+ (define (run-with-progresses% echo? name proc)
+   (proc))
+
+ ;; Syntax wrapper
+ (define-syntax with-progresses%
+   (syntax-rules ()
+     ((_ echo? name body ...)
+      (run-with-progresses%
+       echo? name
+       (lambda () body ...)))))
+
+ ;; Adds name to list of partial progress names, uses the same
+ ;; parameters as run-with-progress%
+ (define (run-with-partial-progress% name proc)
+   (proc))
+
+ ;; Syntax wrapper
+ (define-syntax with-partial-progress%
+   (syntax-rules ()
+     ((_ name body ...)
+      (run-with-partial-progress%
+       name
+       (lambda () body ...)))))
+
  ;; If the program uses progress module, disable buffering
  (set-buffering-mode! (current-output-port) #:none)