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)))))