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

Fix substring semantics.

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

2
src/members-payments.scm
View file

@ -89,7 +89,7 @@
msg)) msg))
(ci3 (substring-index "NULL" msg)) (ci3 (substring-index "NULL" msg))
(vs3 (if ci3 (vs3 (if ci3
(substring msg (+ ci3 4) 4) (substring msg (+ ci3 4) (+ ci3 4 4))
msg))) msg)))
(or (string->number vs1) (or (string->number vs1)
(string->number vs2) (string->number vs2)