diff options
author | Doug-Richardson <doug116654@gmail.com> | 2017-04-19 16:22:47 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-04-19 16:22:47 -0400 |
commit | fe734a889397a9b0bbc55a997049d44166f18eae (patch) | |
tree | 0e458fa501bf84f25c954086fed460266ef6a8bd | |
parent | 240870e5d1bbeecf98601490ee90fdc96541e30d (diff) |
Fixed bug where small strings would crash
-rw-r--r-- | Hermes_Gui1.2.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
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 |