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

add repeat

Browse Source
This commit is contained in:
Mark Thom
2018-03-26 18:59:58 -06:00
parent 2691382771
commit 933b94ef82
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@@ -150,6 +150,7 @@ The following predicates are built-in to rusty-wam.
* `nonvar/1` * `nonvar/1`
* `once/1` * `once/1`
* `rational/1` * `rational/1`
* `repeat/0`
* `reverse/2` * `reverse/2`
* `select/3` * `select/3`
* `setup_call_cleanup/3` * `setup_call_cleanup/3`

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

@@ -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, \=). :- op(700, xfx, \=).
@@ -15,3 +15,6 @@ between(Lower1, Upper, X) :-
Lower1 < Upper, Lower1 < Upper,
Lower2 is Lower1 + 1, Lower2 is Lower1 + 1,
between(Lower2, Upper, X). between(Lower2, Upper, X).
repeat.
repeat :- repeat.