From d54c3369b3812ce2071b7676a035732fe864fce4 Mon Sep 17 00:00:00 2001 From: Markus Triska Date: Tue, 5 Sep 2023 19:39:05 +0200 Subject: [PATCH] FIXED: countall/2 for zero solutions (#1996) Example: ?- countall(false, 0). true. --- src/lib/iso_ext.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib/iso_ext.pl b/src/lib/iso_ext.pl index 0a5798ae..b6863487 100644 --- a/src/lib/iso_ext.pl +++ b/src/lib/iso_ext.pl @@ -370,7 +370,7 @@ countall(Goal, N) :- ( integer(N) -> ( N < 0 -> domain_error(not_less_than_zero, N, countall/2) - ; N > 0 + ; true ) ; true ), -- 2.54.0