brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Handle zero varsym.

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-05 19:38:41 +01:00
parent efb3645f7e
commit 165dd7328e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-payments.scm
View file

@ -77,7 +77,9 @@
(string->number (string->number
(bank-transaction-varsym transaction))) (bank-transaction-varsym transaction)))
(varsym-id (varsym-id
(or varsym-id0 (if (and varsym-id0
(> varsym-id0 1000))
varsym-id0
(let* ((msg (bank-transaction-message transaction)) (let* ((msg (bank-transaction-message transaction))
(ci1 (substring-index "," msg)) (ci1 (substring-index "," msg))
(vs1 (if ci1 (vs1 (if ci1