Skip #f accounts.

2023-04-06 20:44:28 +02:00 · 2023-04-06 20:44:28 +02:00 · 638fec59ef
commit 638fec59ef
parent 3ae1919570
1 changed files with 3 additions and 1 deletions
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@ -162,7 +162,9 @@
 		      mb)
 		    (let ()
 		      (progress%-advance (/ idx total))
-		      (loop (members-payments-process-bank mb (car accounts) last-checked)
+		      (loop (if account
+				(members-payments-process-bank mb (car accounts) last-checked)
+				mb)
 			    (add1 idx)
 			    (cdr accounts))))))
 	     (let ()