add repeat

diff --git a/README.md b/README.md
index 829ea099625d0592bf0c56c08064323a107f80d3..c1614ee33d5514deea54f7a1336d53a53e139a50 100644 (file)
--- a/README.md
+++ b/README.md
@@ -150,6 +150,7 @@ The following predicates are built-in to rusty-wam.
 * `nonvar/1`
 * `once/1`
 * `rational/1`
+* `repeat/0`
 * `reverse/2`
 * `select/3`
 * `setup_call_cleanup/3`

diff --git a/src/prolog/lib/control.pl b/src/prolog/lib/control.pl
index 1501bb81bb7e319d83a78c6c2aa1875b7ef0275e..2c1b113dee261ace67a05d749bb7656e8ab3477f 100644 (file)
--- a/src/prolog/lib/control.pl
+++ b/src/prolog/lib/control.pl
@@ -1,4 +1,4 @@
-:- module(control, [(\=)/2, between/3, call_cleanup/2, once/1]).
+:- module(control, [(\=)/2, between/3, call_cleanup/2, once/1, repeat/0]).
 
 :- op(700, xfx, \=).
 
@@ -15,3 +15,6 @@ between(Lower1, Upper, X) :-
     Lower1 < Upper,
     Lower2 is Lower1 + 1,
     between(Lower2, Upper, X).
+
+repeat.
+repeat :- repeat.