fix loop on boot.

This commit is contained in:
Vitor Santos Costa 2015-01-27 03:25:31 +00:00
parent d9357d3f49
commit 1eeb17f6f1

View File

@ -124,7 +124,7 @@ absolute_file_name(File,Opts,TrueFileName) :-
/**
@pred absolute_file_name(+Name:atom,+Path:atom) is nondet
Converts the given file specification into an absolute path, using default options. See absolute_file_name/3 for details on the options.
11 Converts the given file specification into an absolute path, using default options. See absolute_file_name/3 for details on the options.
*/
absolute_file_name(V,Out) :- var(V), !, % absolute_file_name needs commenting.
@ -396,6 +396,7 @@ absolute_file_name(File0,File) :-
is_absolute_file_name(File), !.
'$extend_path_directory'(Name, D, File, Opts, NewFile, Call) :-
user:file_search_path(Name, IDirs),
ground(IDirs),
(
'$extend_path_directory'(IDirs, D, File, Opts, NewFile, Call)
;