Prepare payments for comment parsing of SEPA transactions.

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)