remove redundancy positivity check in repeat/1

This commit is contained in:
Mark Thom
2019-02-24 13:12:46 -07:00
parent 7edbb540bd
commit 8f9c620a89

View File

@@ -45,7 +45,7 @@ repeat_integer(N0) :-
N0 > 0, N1 is N0 - 1, repeat_integer(N1).
repeat(N) :-
must_be(integer, N), N > 0, repeat_integer(N).
must_be(integer, N), repeat_integer(N).
numlist(Upper, List) :-
( integer(Upper) -> findall(X, between(1, Upper, X), List)