fix absolute_file_name (SWI and SICStus compatibility, obs from Paulo Moura).
This commit is contained in:
parent
b1621d033a
commit
2257b056f0
@ -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})
|
||||
|
@ -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).
|
||||
|
Reference in New Issue
Block a user