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

beautify code

This commit is contained in:
Vítor Santos Costa 2014-09-25 09:43:50 +01:00
parent 7f952c8b74
commit e4603ffe22
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pl/absf.yap
View File

@ -113,11 +113,14 @@ swapped, making the call
valid as well. valid as well.
*/ */
absolute_file_name(File,TrueFileName,Opts) :- ( var(TrueFileName) -> absolute_file_name(File,TrueFileName,Opts) :-
true ; atom(TrueFileName), TrueFileName \= [] ), !, ( var(TrueFileName) ->
absolute_file_name(File,Opts,TrueFileName). true ;
atom(TrueFileName), TrueFileName \= []
), !,
absolute_file_name(File,Opts,TrueFileName).
absolute_file_name(File,Opts,TrueFileName) :- absolute_file_name(File,Opts,TrueFileName) :-
'$absolute_file_name'(File,Opts,TrueFileName,absolute_file_name(File,Opts,TrueFileName)). '$absolute_file_name'(File,Opts,TrueFileName,absolute_file_name(File,Opts,TrueFileName)).
/** /**
@pred absolute_file_name(+Name:atom,+Path:atom) is nondet @pred absolute_file_name(+Name:atom,+Path:atom) is nondet