use -1 as eof_code for binary streams (#555)

2020-05-22 15:58:07 -06:00
parent f9aad34d28
commit 0060c8988a
1 changed files with 8 additions and 3 deletions
--- a/src/prolog/machine/streams.rs
+++ b/src/prolog/machine/streams.rs
@@ -688,9 +688,14 @@ impl MachineState {
                return Err(self.open_past_eos_error(stream.clone(), caller, arity));
            }
            EOFAction::EOFCode => {
-                let end_of_stream = self.heap.to_unifiable(
-                    HeapCellValue::Atom(clause_name!("end_of_file"), None)
-                );
+                let end_of_stream =
+                    if stream.options.stream_type == StreamType::Binary {
+                        Addr::Fixnum(-1)
+                    } else {
+                        self.heap.to_unifiable(
+                            HeapCellValue::Atom(clause_name!("end_of_file"), None)
+                        )
+                    };

                stream.set_past_end_of_stream();
                Ok(self.unify(result, end_of_stream))