From 2735d07f844a06dc18de70e8a5e1200d85a40136 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Thu, 24 Jun 2021 12:07:27 +0000
Subject: [PATCH] nga-c / repl: exit on EOF instead of segfaulting

FossilOrigin-Name: d07ff75ab1d7151dfc9ea6a446374547c8ab7420693073567d7964dac629a349
---
 vm/nga-c/repl.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vm/nga-c/repl.c b/vm/nga-c/repl.c
index 04fecff..894b2f4 100644
--- a/vm/nga-c/repl.c
+++ b/vm/nga-c/repl.c
@@ -289,12 +289,15 @@ void inst_iq() {
 }
 
 void inst_ii() {
+  int c;
   if (TOS == 0) {
     inst_dr();
     putc(stack_pop(), stdout);
   } else if (TOS == 1) {
+    c = getc(stdin);
+    if (c < 0) exit(0);
     inst_dr();
-    stack_push(getc(stdin));
+    stack_push(c);
   } else {
     inst_dr();
   }