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

text files and other typed files cannot be directoried

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-12-14 11:06:09 +00:00
parent b90685fe59
commit b65dee6b3a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/absf.yap
View File

@ -221,11 +221,10 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$check_file'(F, _Type, none, F) :- !. '$check_file'(F, _Type, none, F) :- !.
'$check_file'(F0, Type, Access, F0) :- '$check_file'(F0, Type, Access, F0) :-
access_file(F0, Access), access_file(F0, Access),
(Type == directory (Type == directory ->
->
exists_directory(F0) exists_directory(F0)
; ;
true \+ exists_directory(F0) % if it has a type cannot be a directory.
). ).
'$add_extensions'([Ext|_],File,F) :- '$add_extensions'([Ext|_],File,F) :-