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

restore setup_call_cleanup/3

Browse Source
This commit is contained in:
Mark Thom
2018-08-04 16:12:37 -06:00
parent ae11e82040
commit 707e5fcf8b
9 changed files with 143 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/prolog/lib/control.pl
View File

@@ -1,4 +1,4 @@
:- module(control, [(\=)/2, (\+)/1, between/3, once/1, repeat/0]).
:- module(control, [(\=)/2, (\+)/1, between/3, call_cleanup/2, once/1, repeat/0]).
:- op(900, fy, \+).
:- op(700, xfx, \=).
@@ -11,7 +11,7 @@ once(G) :- G, !.
X \= X :- !, false.
_ \= _.
% call_cleanup(G, C) :- setup_call_cleanup(true, G, C).
call_cleanup(G, C) :- setup_call_cleanup(true, G, C).
between(Lower, Upper, Lower) :-
Lower =< Upper.