981 Prefer must_be/2

This commit is contained in:
Regan-Koopmans
2021-06-18 08:22:43 +02:00
parent 72a7765b58
commit f5eadb2957

View File

@@ -123,5 +123,5 @@ rational_numerator_denominator(R, N, D) :-
number_chars(D, Ds). number_chars(D, Ds).
popcount(X, N) :- popcount(X, N) :-
integer(X), must_be(integer, X),
'$popcount'(X, N). '$popcount'(X, N).