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

rebound

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 17:18:29 +00:00
parent 53927de579
commit 14250cfff6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/absf.yap
View File

@ -411,7 +411,7 @@ absolute_file_name(File0,File) :-
'$get_abs_file'(File,Opts,AbsFile) :-
get_abs_file_parameter( expand, Opts, Expand ),
'$absf_trace'('variable expansion allowed? ~w', [Expand] ),
'$absolute_file_name'(File,ExpFile),
absolute_file_name(File,ExpFile),
'$absf_trace'(' variable expansion ~w', [ExpFile] ),
get_abs_file_parameter( relative_to, Opts, RelTo ),
(
@ -580,7 +580,7 @@ prolog_file_name(File, PrologFileName) :-
prolog_file_name(user, Out) :- !, Out = user.
prolog_file_name(File, PrologFileName) :-
atom(File), !,
operating_system_support:true_file_name(File, PrologFileName).
system:true_file_name(File, PrologFileName).
prolog_file_name(File, PrologFileName) :-
'$do_error'(type_error(atom,File), prolog_file_name(File, PrologFileName)).