fix exists.

This commit is contained in:
Vitor Santos Costa 2011-07-27 16:30:29 +01:00
parent e2179a277d
commit 40976581a3

View File

@ -94,7 +94,8 @@ fileerrors :- '$swi_set_prolog_flag'(fileerrors, true).
nofileerrors :- '$swi_set_prolog_flag'(fileerrors, false).
exists(F) :- access_file(F,exist).
exists(F) :-
absolute_file_name(F, _, [file_errors(fail),access(exist),expand(true)]).
/* Term IO */