From b9f461dbc52a29dd0668e8e2885f3da39038b50f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 31 Aug 2017 22:19:13 +0000
Subject: [PATCH] Issue #216 - Decrement len when no newline

---
 runtime.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index ed55eaf4..1bb96c00 100644
--- a/runtime.c
+++ b/runtime.c
@@ -6187,7 +6187,8 @@ object Cyc_io_read_line(void *data, object cont, object port)
     {
       // Remove trailing newline
       if (len > 0 && buf[len - 1] == '\n') {
-        buf[len - 1] = '\0';
+        len--;
+        buf[len] = '\0';
       }
       make_string_noalloc(s, buf, len);
       return_thread_runnable(data, &s);