text files and other typed files cannot be directoried

2013-12-14 11:06:09 +00:00 · 2013-12-14 11:06:09 +00:00 · b65dee6b3a
commit b65dee6b3a
parent b90685fe59
1 changed files with 2 additions and 3 deletions
--- a/pl/absf.yap
+++ b/pl/absf.yap
@ -221,11 +221,10 @@ absolute_file_name(File,Opts,TrueFileName) :-
 '$check_file'(F, _Type, none, F) :- !.
 '$check_file'(F0, Type, Access, F0) :-
 	access_file(F0, Access),
-	(Type == directory
-	->
+	(Type == directory ->
 	 exists_directory(F0)
 	;
-	 true
+	 \+ exists_directory(F0) % if it has a type cannot be a directory.
 	).

 '$add_extensions'([Ext|_],File,F) :-