FIXED: countall/2 for zero solutions (#1996)
Example:
?- countall(false, 0).
true.
This commit is contained in:
@@ -370,7 +370,7 @@ countall(Goal, N) :-
|
|||||||
( integer(N) ->
|
( integer(N) ->
|
||||||
( N < 0 ->
|
( N < 0 ->
|
||||||
domain_error(not_less_than_zero, N, countall/2)
|
domain_error(not_less_than_zero, N, countall/2)
|
||||||
; N > 0
|
; true
|
||||||
)
|
)
|
||||||
; true
|
; true
|
||||||
),
|
),
|
||||||
|
|||||||
Reference in New Issue
Block a user