diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle the case where the result

Browse Source 
of file expansion is an alias
This commit is contained in:
Vítor Santos Costa 2015-01-26 03:33:47 +00:00
parent 70806f1841
commit 9d4b59f7d6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/absf.yap
View File

@ -396,7 +396,10 @@ absolute_file_name(File0,File) :-
is_absolute_file_name(File), !. is_absolute_file_name(File), !.
'$extend_path_directory'(Name, D, File, Opts, NewFile, Call) :- '$extend_path_directory'(Name, D, File, Opts, NewFile, Call) :-
user:file_search_path(Name, IDirs), user:file_search_path(Name, IDirs),
( atom(IDirs) -> (
'$extend_path_directory'(IDirs, D, File, Opts, NewFile, Call)
;
atom(IDirs) ->
'$split_by_sep'(0, 0, IDirs, Dir) '$split_by_sep'(0, 0, IDirs, Dir)
; ;
Dir = IDirs Dir = IDirs