add provisional module support.

2018-03-02 22:28:12 -07:00
parent 33834609c3
commit 8a63623516
21 changed files with 839 additions and 426 deletions
--- a/src/prolog/lib/control.pl
+++ b/src/prolog/lib/control.pl
@@ -1,9 +1,13 @@
+:- module(control, [(\=)/2, between/3, call_cleanup/2, once/1]).
+
 :- op(700, xfx, \=).

 once(G) :- G, !.

-\=(X, X) :- !, false.
-\=(_, _).
+X \= X :- !, false.
+_ \= _.
+
+call_cleanup(G, C) :- setup_call_cleanup(true, G, C).

 between(Lower, Upper, Lower) :-
    Lower =< Upper.