Fix substring semantics.

This commit is contained in:
Dominik Pantůček 2023-12-05 19:33:59 +01:00
parent 8ac6f8627c
commit efb3645f7e

View file

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