From 3edfe6c02a2b5bd79f4cc71a6122367dc2c0d20a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 30 Mar 2023 22:36:58 +0200
Subject: [PATCH] Prepare payments for comment parsing of SEPA transactions.

---
 members-payments.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/members-payments.scm b/members-payments.scm
index fa0fce0..928e318 100644
--- a/members-payments.scm
+++ b/members-payments.scm
@@ -36,6 +36,7 @@
 	 (chicken base)
 	 (chicken string)
 	 (chicken io)
+	 (chicken irregex)
 	 bank-account
 	 member-record
 	 members-base
@@ -52,7 +53,9 @@
      (if (null? transactions)
 	 mb
 	 (let* ((transaction (car transactions))
-		(varsym-id (string->number (bank-transaction-varsym transaction))))
+		(varsym-id
+		 (string->number
+		   (bank-transaction-varsym transaction))))
 	   (loop (members-base-update mb
 				      (lambda (mr)
 					(eq? (member-id mr)