fix absolute_file_name (SWI and SICStus compatibility, obs from Paulo Moura).

This commit is contained in:
Vítor Santos Costa II 2010-04-10 21:23:38 +01:00
parent b1621d033a
commit 2257b056f0
2 changed files with 3 additions and 2 deletions

View File

@ -4256,7 +4256,8 @@ in a directive, it uses the current source-file as reference.
@item access(+@var{Mode})
Imposes the condition access_file(@var{File}, @var{Mode}). @var{Mode}
is on of @code{read}, @code{write}, @code{append}, @code{exist} or @code{none}.
is on of @code{read}, @code{write}, @code{append}, @code{exist} or
@code{none} (default).
See also @code{access_file/2}.
@item file_type(+@var{Type})

View File

@ -694,7 +694,7 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$process_fn_opts'(V,_,_,_,_,_,_,_,_,G) :- var(V), !,
'$do_error'(instantiation_error, G).
'$process_fn_opts'([],[],_,source,read,error,first,false,false,_) :- !.
'$process_fn_opts'([],[],_,source,none,error,first,false,false,_) :- !.
'$process_fn_opts'([Opt|Opts],Extensions,RelTo,Type,Access,FErrors,Solutions,Expand,Debug,G) :- !,
'$process_fn_opt'(Opt,Extensions,RelTo,Type,Access,FErrors,Solutions,Expand,Debug,Extensions0,RelTo0,Type0,Access0,FErrors0,Solutions0,Expand0,Debug0,G),
'$process_fn_opts'(Opts,Extensions0,RelTo0,Type0,Access0,FErrors0,Solutions0,Expand0,Debug0,G).