Improve progress% nesting.

src/members-payments.scm

@@ -145,22 +145,22 @@
  ;; accounts and processes transactions.
  (define (members-payments-process mb apikeys-file dir checked-fn)
    (if apikeys-file
-       (with-progress%
+       (let* ((acc-list (load-accounts-list apikeys-file))
-	#t "Payments"
+	      (accounts (if acc-list (load-accounts acc-list dir) #f))
-	(progress%-advance 0)
+	      (last-checked (get-latest-checked-id checked-fn)))
-	(let* ((acc-list (load-accounts-list apikeys-file))
+	 (if accounts
-	       (accounts (if acc-list (load-accounts acc-list dir) #f))
+	     (with-progress%
-	       (last-checked (get-latest-checked-id checked-fn)))
+	      #t "Payments"
-	  (if accounts
+	      (progress%-advance 0)
 	      (let ((mbp (foldl (lambda (mb ba)
 				  (members-payments-process-bank mb ba last-checked))
 				mb
 				(filter identity
 					accounts))))
-		(members-base-update mbp identity member-sort-payments))
+		(members-base-update mbp identity member-sort-payments)))
-	      (let ()
+	     (let ()
-		(print "Warning: no accounts loaded!")
+	       (print "Warning: no accounts loaded!")
-		mb))))
+	       mb)))
        mb))
 
  ;; Adds all balances - payments are converted to CZK in member-payments-total