rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use '$call' all throughout setup_call_cleanup/3

Browse Source
This commit is contained in:
Mark Thom
2022-04-11 17:24:00 -06:00
parent 525050c407
commit d644a3996e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/iso_ext.pl
View File

@@ -77,7 +77,7 @@ setup_call_cleanup(S, G, C) :-
scc_helper(C, G, Bb) :- scc_helper(C, G, Bb) :-
'$get_cp'(Cp), '$get_cp'(Cp),
'$install_scc_cleaner'(C, NBb), '$install_scc_cleaner'(C, NBb),
call(G), '$call'(G),
( '$check_cp'(Cp) -> ( '$check_cp'(Cp) ->
'$reset_block'(Bb), '$reset_block'(Bb),
'$call_with_default_policy'(run_cleaners_without_handling(Cp)) '$call_with_default_policy'(run_cleaners_without_handling(Cp))
@@ -110,7 +110,7 @@ run_cleaners_with_handling :-
run_cleaners_without_handling(Cp) :- run_cleaners_without_handling(Cp) :-
'$get_scc_cleaner'(C), '$get_scc_cleaner'(C),
'$get_level'(B), '$get_level'(B),
call(C), '$call'(C),
'$set_cp_by_default'(B), '$set_cp_by_default'(B),
'$call_with_default_policy'(run_cleaners_without_handling(Cp)). '$call_with_default_policy'(run_cleaners_without_handling(Cp)).
run_cleaners_without_handling(Cp) :- run_cleaners_without_handling(Cp) :-