From ffba7ff683b59c27b9e40fbcdbf28d34d0fd00dd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 17 Aug 2017 11:04:26 +0000
Subject: [PATCH] Added #\escape

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

diff --git a/runtime.c b/runtime.c
index 164b8ced..4bbd3a1d 100644
--- a/runtime.c
+++ b/runtime.c
@@ -5979,6 +5979,8 @@ void _read_return_character(void *data, port_type *p)
     return_thread_runnable(data, obj_char2obj('\b'));
   } else if(strncmp(p->tok_buf, "delete", 6) == 0) {
     return_thread_runnable(data, obj_char2obj(127));
+  } else if(strncmp(p->tok_buf, "escape", 6) == 0) {
+    return_thread_runnable(data, obj_char2obj(27));
   } else if(strncmp(p->tok_buf, "newline", 7) == 0) {
     return_thread_runnable(data, obj_char2obj('\n'));
   } else if(strncmp(p->tok_buf, "null", 4) == 0) {