Faster Fio parsing.

2023-03-31 09:55:05 +02:00 · 2023-03-31 09:55:05 +02:00 · 8fb302f682
commit 8fb302f682
parent 9435659140
2 changed files with 9 additions and 5 deletions
--- a/members-payments.scm
+++ b/members-payments.scm
@ -55,7 +55,7 @@
 	       (let* ((msg (bank-transaction-message transaction))
 		      (ci (substring-index "," msg))
 		      (vs (if ci
-			      (substring msg ci)
+			      (substring msg 0 ci)
 			      msg)))
 		 (string->number vs)))))
     varsym-id))