aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDoug-Richardson <doug116654@gmail.com>2017-04-19 16:22:47 -0400
committerGitHub <noreply@github.com>2017-04-19 16:22:47 -0400
commitfe734a889397a9b0bbc55a997049d44166f18eae (patch)
tree0e458fa501bf84f25c954086fed460266ef6a8bd
parent240870e5d1bbeecf98601490ee90fdc96541e30d (diff)
Fixed bug where small strings would crash
-rw-r--r--Hermes_Gui1.2.rkt2
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