From: William Kral <william.kral@gmail.com>
Date: Sun, 10 Apr 2022 19:00:59 +0000 (-0700)
Subject: Fix reported source for set_output/1 error (#1407)
X-Git-Tag: v0.9.1~62^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=9e98f75495beea058b6b15fc2c615f532660a2b5;p=scryer-prolog.git

Fix reported source for set_output/1 error (#1407)
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index d9ff4e32..6e434782 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3987,7 +3987,7 @@ impl Machine {
         )?;
 
         if !stream.is_output_stream() {
-            let stub = functor_stub(atom!("set_input"), 1);
+            let stub = functor_stub(atom!("set_output"), 1);
 
             let user_alias = atom_as_cell!(atom!("user"));
             let err = self.machine_st.permission_error(