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