From 638fec59ef00d0889ae6eac59634038f96160782 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 20:44:28 +0200 Subject: [PATCH] Skip #f accounts. --- src/members-payments.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/members-payments.scm b/src/members-payments.scm index 6a9dc68..337b869 100644 --- 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 ()