From fe734a889397a9b0bbc55a997049d44166f18eae Mon Sep 17 00:00:00 2001 From: Doug-Richardson Date: Wed, 19 Apr 2017 16:22:47 -0400 Subject: [PATCH] Fixed bug where small strings would crash --- Hermes_Gui1.2.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Hermes_Gui1.2.rkt b/Hermes_Gui1.2.rkt index c1f4545..a051c10 100644 --- a/Hermes_Gui1.2.rkt +++ b/Hermes_Gui1.2.rkt @@ -75,7 +75,7 @@ (if (eq? (string-ref str (+ start index)) #\~) (substring str start (+ start index)) (helper str (+ index 1)))) - (helper string start))) + (helper string 0))) (define (user-message onetrueinput) (begin