From 4022553dc0dc808effed8cb83d7bc6cd291d7d04 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Mon, 20 Jan 2025 20:23:22 -0500
Subject: [PATCH] match existing eof behavior

---
 vm.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vm.scm b/vm.scm
index cb7e4ea..da4ba6d 100644
--- a/vm.scm
+++ b/vm.scm
@@ -320,7 +320,7 @@
 ; - 1 stdin
 ; - 2 argument data
 ; - 3 spacer between arguments
-; - 4 spacer after arguments
+; - 4 spacer after arguments, or end of stdin
 (define (u:send-input c type)
   (let* ((hi (vector-ref dev 16))
          (lo (vector-ref dev 17))
@@ -334,7 +334,7 @@
 (define (u:read-stdin port)
   (let ((c (read-char port)))
     (if (eof-object? c)
-        (u:send-input #\newline 4)
+        (u:send-input #\null 4)
         (begin
           (u:send-input c 1)
           (u:read-stdin port)))))