From 109b2a586fbfc1d25592914aa5ea58681316b91b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 28 Sep 2007 09:53:42 +0000
Subject: [PATCH] fix directory handling?

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

diff --git a/pl/boot.yap b/pl/boot.yap
index 9dc69db5f..3eb380225 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -921,8 +921,8 @@ access_file(F,Mode) :-
 	'$exists'(F,Mode).
 
 '$exists'(_,none) :- !.
-'$exists'(F,exists) :-
-	'$access'(F), !.
+'$exists'(F,exist) :- !,
+	'$access'(F).
 '$exists'(F,Mode) :-
 	get_value(fileerrors,V),
 	set_value(fileerrors,0),
diff --git a/pl/consult.yap b/pl/consult.yap
index 8c9e86640..3f0807f34 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -561,7 +561,7 @@ absolute_file_name(V,Out) :- var(V), !,
 	'$do_error'(instantiation_error, absolute_file_name(V, Out)).
 absolute_file_name(user,user) :- !.
 absolute_file_name(File0,File) :-
-	'$absolute_file_name'(File0,[access(read),file_type(source),file_errors(fail),solutions(first)],File,absolute_file_name(File0,File)).
+	'$absolute_file_name'(File0,[access(exist),file_type(source),file_errors(fail),solutions(first)],File,absolute_file_name(File0,File)).
 
 '$find_in_path'(F0,F,G) :-
 	'$absolute_file_name'(F0,[access(read),file_type(source),file_errors(fail),solutions(first)],F,G).