From da81b3bffb002d68f84061cf90ad25aee0d64a3d Mon Sep 17 00:00:00 2001
From: Peter William Birch <birchb1024@gmail.com>
Date: Sat, 27 Apr 2019 23:00:32 +1000
Subject: [PATCH] Fix StringIndexOutOfBoundsException in -eval #25

---
 src/org/genyris/interp/Interpreter.java | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/org/genyris/interp/Interpreter.java b/src/org/genyris/interp/Interpreter.java
index e46986d2..18080413 100644
--- a/src/org/genyris/interp/Interpreter.java
+++ b/src/org/genyris/interp/Interpreter.java
@@ -298,9 +298,11 @@ public Stack<Closure> resetDebugBackTrace() {
     }
 
     public Exp evalStringInGlobalEnvironment(String script) throws GenyrisException {
+        String truncatedScript = script;
+        if( script.length() > 9 )
+            truncatedScript = script.substring(0, 10) + "...";
         InStream is = new UngettableInStream(new ConvertEofInStream(new IndentStream(
-                new UngettableInStream(new ReaderInStream(new StringReader(script),
-                        script.substring(0, 10) + "...")), true)));
+                new UngettableInStream(new ReaderInStream(new StringReader(script), truncatedScript)), true)));
 
         Parser parser = newParser(is);
         parser.setUsualPrefixes(this);