From cf6391d96b98c0bfa8442d93eb4122c5652749f5 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 16 Sep 2002 16:57:27 +0000
Subject: [PATCH] make open/3 complain when trying to read after end of file.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@590 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c | 3 ---
 pl/yio.yap  | 2 +-
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 0d7d1d89f..3a9dde254 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2839,9 +2839,6 @@ p_read (void)
   if (Stream[c_input_stream].status & Binary_Stream_f) {
     Error(PERMISSION_ERROR_INPUT_BINARY_STREAM, MkAtomTerm(Stream[c_input_stream].u.file.name), "read_term/2");
     return(FALSE);
-  } else if (Stream[c_input_stream].status & Eof_Error_Stream_f) {
-    Error(PERMISSION_ERROR_INPUT_PAST_END_OF_STREAM, MkAtomTerm(Stream[c_input_stream].u.file.name), "read_term/2");
-    return(FALSE);
   }
   old_TR = TR;
   while (TRUE) {
diff --git a/pl/yio.yap b/pl/yio.yap
index 69d107f53..726498a6b 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -24,7 +24,7 @@ open(Source,M,T) :- var(M), !,
 open(Source,M,T) :- nonvar(T), !,
 	'$do_error'(type_error(variable,T),open(Source,M,T)).
 open(File,Mode,Stream) :-
-	'$open'(File,Mode,Stream,0).
+	'$open'(File,Mode,Stream,16).
 
 /* meaning of flags for '$write' is
 	 1	quote illegal atoms