diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make fileerrors on default

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1241 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-02-08 18:14:30 +00:00
parent 49c8efc0df
commit ab686d4ebe
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -454,9 +454,9 @@ PlIOError (yap_error_number type, Term culprit, char *who)
if (Yap_GetValue(Yap_LookupAtom("fileerrors")) == MkIntTerm(1)) { if (Yap_GetValue(Yap_LookupAtom("fileerrors")) == MkIntTerm(1)) {
Yap_Error(type, culprit, who); Yap_Error(type, culprit, who);
/* and fail */ /* and fail */
return(FALSE); return FALSE;
} else { } else {
return(FALSE); return FALSE;
} }
} }

1
pl/boot.yap
View File

@ -47,6 +47,7 @@ true :- true.
true true
), ),
'$set_yap_flags'(10,0), '$set_yap_flags'(10,0),
set_value(fileerrors,1),
set_value('$gc',on), set_value('$gc',on),
set_value('$verbose',on), set_value('$verbose',on),
('$exit_undefp' -> true ; true), ('$exit_undefp' -> true ; true),