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

Much faster payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:43:12 +02:00
parent b72f1900e6
commit 3c56578d65
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
members-payments.scm
View file

@ -58,10 +58,12 @@
(bank-transaction-varsym transaction)))
(varsym-id
(or varsym-id0
(string->number
(irregex-replace (irregex "[^0-9].*" 'u)
(bank-transaction-message transaction)
"")))))
(let* ((msg (bank-transaction-message transaction))
(ci (substring-index "," msg))
(vs (if ci
(substring msg ci)
msg)))
(string->number vs)))))
(loop (members-base-update mb
(lambda (mr)
(eq? (member-id mr)