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

fix user c predicates

Browse Source 
fix Makefiles to handle case where so is o.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@183 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-11-18 21:00:57 +00:00
parent b2934a5aeb
commit 5682ce7622
8 changed files with 192 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
library/system.yap
View File

@@ -147,10 +147,22 @@ file_property(File, Type, Size, Date) :-
file_property(File, Type, Size, Date, _Permissions, Error),
handle_system_error(Error, off, file_property(File)).
file_exists(File) :-
var(File), !,
throw(error(instantiation_error,file_exists(File))).
file_exists(File) :-
\+ atom(File), !,
throw(error(type_error(atom,File),file_exists(File))).
file_exists(File) :-
file_property(File, _Type, _Size, _Date, _Permissions, Error),
var(Error).
file_exists(File, Permissions) :-
var(File), !,
throw(error(instantiation_error,file_exists(File, Permissions))).
file_exists(File, Permissions) :-
\+ atom(File), !,
throw(error(type_error(atom,File),file_exists(File, Permissions))).
file_exists(File, Permissions) :-
file_property(File, _Type, _Size, _Date, FPermissions, Error),
var(Error),