add provisional module support.

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.

src/prolog/lib/lists.pl

@@ -1,3 +1,7 @@
+:- module(lists, [member/2, select/3, append/3, memberchk/2, reverse/2, maplist/2,
+		  maplist/3, maplist/4, maplist/5, maplist/6, maplist/7, maplist/8,
+		  maplist/9]).
+
 member(X, [X|_]).
 member(X, [_|Xs]) :- member(X, Xs).