Fixed bug where small strings would crash

This commit is contained in:
Doug-Richardson 2017-04-19 16:22:47 -04:00 committed by GitHub
parent 240870e5d1
commit fe734a8893

View File

@ -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