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

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index d9ff4e32aeca79aff7e1733750e2935389ce0210..6e434782014a6ab01c3e47951474e59bb80cc145 100644 (file)
--- 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(