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

fix warnings

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-03-30 01:25:43 +01:00
parent e0d82cfb23
commit 1c2383b5b9
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/control.yap
View File

@ -263,10 +263,10 @@ This is similar to <tt>call_cleanup/1</tt> with an additional
*/ */
call_cleanup(Goal, Cleanup) :- call_cleanup(Goal, Cleanup) :-
'$setup_call_catcher_cleanup'(true, Goal, Catcher, Cleanup). setup_call_catcher_cleanup(true, Goal, Catcher, Cleanup).
call_cleanup(Goal, Catcher, Cleanup) :- call_cleanup(Goal, Catcher, Cleanup) :-
'$setup_call_catcher_cleanup'(true, Goal, Catcher, Cleanup). setup_call_catcher_cleanup(true, Goal, Catcher, Cleanup).
/** @pred setup_call_cleanup(: _Setup_,: _Goal_, : _CleanUpGoal_) /** @pred setup_call_cleanup(: _Setup_,: _Goal_, : _CleanUpGoal_)
@ -283,10 +283,7 @@ most uses, _Setup_ will perform temporary side-effects required by
*/ */
setup_call_cleanup(Setup,Goal, Cleanup) :- setup_call_cleanup(Setup,Goal, Cleanup) :-
'$setup_call_catcher_cleanup'(Setup, Goal, Catcher, Cleanup). setup_call_catcher_cleanup(Setup, Goal, _Catcher, Cleanup).
setup_call_catcher_cleanup(Setup,Goal, Catcher, Cleanup) :-
'$setup_call_catcher_cleanup'(Setup, Goal, Catcher, Cleanup).
/** @pred call_with_args(+ _Name_,...,? _Ai_,...) /** @pred call_with_args(+ _Name_,...,? _Ai_,...)
@ -649,4 +646,3 @@ prolog_current_frame(Env) :-
/** /**
@} @}
*/ */