fix exists.
This commit is contained in:
parent
e2179a277d
commit
40976581a3
@ -94,7 +94,8 @@ fileerrors :- '$swi_set_prolog_flag'(fileerrors, true).
|
|||||||
|
|
||||||
nofileerrors :- '$swi_set_prolog_flag'(fileerrors, false).
|
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 */
|
/* Term IO */
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user