From 165dd7328e4dd1d261f6de3a666f38c7af81e937 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 5 Dec 2023 19:38:41 +0100 Subject: [PATCH] Handle zero varsym. --- 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 c803da8..bf2c416 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -77,7 +77,9 @@ (string->number (bank-transaction-varsym transaction))) (varsym-id - (or varsym-id0 + (if (and varsym-id0 + (> varsym-id0 1000)) + varsym-id0 (let* ((msg (bank-transaction-message transaction)) (ci1 (substring-index "," msg)) (vs1 (if ci1