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

Fix singleton variable that breaks expanding a relative file path

Browse Source
This commit is contained in:
Paulo Moura 2013-11-11 16:38:04 +00:00
parent a2fc06df36
commit 16e3bda666
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -948,6 +948,8 @@ absolute_file_name(File,Opts,TrueFileName) :-
( is_absolute_file_name(File) -> ( is_absolute_file_name(File) ->
ActualFile = File ActualFile = File
; ;
'$dir_separator'(D),
atom_codes(DA,[D]),
atom_concat([RelTo, DA, File], ActualFile) atom_concat([RelTo, DA, File], ActualFile)
) )
; ;