call '$erase_ball' before running cleanup code in setup_call_cleanup (#886)
This commit is contained in:
@@ -86,8 +86,8 @@ scc_helper(C, G, Bb) :-
|
|||||||
scc_helper(_, _, Bb) :-
|
scc_helper(_, _, Bb) :-
|
||||||
'$reset_block'(Bb),
|
'$reset_block'(Bb),
|
||||||
'$get_ball'(Ball),
|
'$get_ball'(Ball),
|
||||||
'$call_with_default_policy'(run_cleaners_with_handling),
|
|
||||||
'$erase_ball',
|
'$erase_ball',
|
||||||
|
'$call_with_default_policy'(run_cleaners_with_handling),
|
||||||
'$call_with_default_policy'(throw(Ball)).
|
'$call_with_default_policy'(throw(Ball)).
|
||||||
scc_helper(_, _, _) :-
|
scc_helper(_, _, _) :-
|
||||||
'$get_cp'(Cp),
|
'$get_cp'(Cp),
|
||||||
|
|||||||
Reference in New Issue
Block a user