Fixed bug where small strings would crash
This commit is contained in:
parent
240870e5d1
commit
fe734a8893
@ -75,7 +75,7 @@
|
|||||||
(if (eq? (string-ref str (+ start index)) #\~)
|
(if (eq? (string-ref str (+ start index)) #\~)
|
||||||
(substring str start (+ start index))
|
(substring str start (+ start index))
|
||||||
(helper str (+ index 1))))
|
(helper str (+ index 1))))
|
||||||
(helper string start)))
|
(helper string 0)))
|
||||||
|
|
||||||
(define (user-message onetrueinput)
|
(define (user-message onetrueinput)
|
||||||
(begin
|
(begin
|
||||||
|
Loading…
Reference in New Issue
Block a user