From fb8e3071f2b6de2c5737686509029f2642741dec Mon Sep 17 00:00:00 2001
From: Mark <markjordanthom@gmail.com>
Date: Sat, 8 Jul 2023 19:27:32 -0600
Subject: [PATCH] follow EOF action after open_parsing_stream in get_char if
 stream at EOF

---
 src/machine/system_calls.rs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index da2314d3..11a724cc 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3400,8 +3400,12 @@ impl Machine {
             Ok(iter) => iter,
             Err(e) => {
                 if e.is_unexpected_eof() {
-                    self.machine_st.unify_atom(atom!("end_of_file"), addr);
-                    return Ok(());
+                    return self.machine_st.eof_action(
+                        self.machine_st.registers[2],
+                        stream,
+                        atom!("get_char"),
+                        2,
+                    );
                 } else {
                     let err = self.machine_st.session_error(SessionError::from(e));
                     return Err(self.machine_st.error_form(err, stub_gen()));
-- 
2.54.0