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

7
pl/absf.yap
View File

@ -396,8 +396,11 @@ 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),
( atom(IDirs) ->
'$split_by_sep'(0, 0, IDirs, Dir)
(
'$extend_path_directory'(IDirs, D, File, Opts, NewFile, Call)
;
atom(IDirs) ->
'$split_by_sep'(0, 0, IDirs, Dir)
;
Dir = IDirs
),