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

small space fixes

This commit is contained in:
Vítor Manuel de Morais Santos Costa 2009-12-12 23:20:44 +00:00
parent 1486b97e75
commit 946b6aa812
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pl/control.yap
View File

@ -62,7 +62,7 @@ call_cleanup(Goal, Catcher, Cleanup) :-
setup_call_catcher_cleanup(true, Goal, Catcher, 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) :-
yap_hacks:disable_interrupts,
@ -112,7 +112,7 @@ setup_call_catcher_cleanup(Setup, Goal, Catcher, Cleanup) :-
throw(Exception).
'$safe_call_cleanup'(Goal, Cleanup, Catcher, Exception) :-
yap_hacks:current_choice_point(MyCP1),
yap_hacks:current_choice_point(MyCP1),
'$freeze_goal'(Catcher, '$clean_call'(Active, Cleanup)),
(
yap_hacks:trail_suspension_marker(Catcher),
@ -125,14 +125,14 @@ setup_call_catcher_cleanup(Setup, Goal, Catcher, Cleanup) :-
(
CP0 =:= CPF
->
Catcher = exit,
!
Catcher = exit,
!
;
true
true
)
;
Catcher = fail,
fail
Catcher = fail,
fail
).
'$holds_true'.