From ab686d4ebe923e5912b9355792a16e6b06f54149 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 8 Feb 2005 18:14:30 +0000
Subject: [PATCH] make fileerrors on default

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

diff --git a/C/iopreds.c b/C/iopreds.c
index aabff3d5b..3136eb8c4 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -454,9 +454,9 @@ PlIOError (yap_error_number type, Term culprit, char *who)
   if (Yap_GetValue(Yap_LookupAtom("fileerrors")) == MkIntTerm(1)) {
     Yap_Error(type, culprit, who);
     /* and fail */
-    return(FALSE);
+    return FALSE;
   } else {
-    return(FALSE);
+    return FALSE;
   }
 }
 
diff --git a/pl/boot.yap b/pl/boot.yap
index d5420bffb..261ba0220 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -47,6 +47,7 @@ true :- true.
 	  true
 	),
 	'$set_yap_flags'(10,0),
+	set_value(fileerrors,1),
 	set_value('$gc',on),
 	set_value('$verbose',on),
 	('$exit_undefp' -> true ; true),