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

add meta_predicate/1 declaration for include/3 and exclude/3

Browse Source
This commit is contained in:
Markus Triska
2023-09-08 22:41:49 +02:00
parent 672979c515
commit ad4c17fbb6
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/clpb.pl
View File

@@ -1949,6 +1949,8 @@ Compatibility predicates.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
:- meta_predicate(include(1, ?, ?)).
include(_, [], []). include(_, [], []).
include(Goal, [L|Ls0], Ls) :- include(Goal, [L|Ls0], Ls) :-
( call(Goal, L) -> ( call(Goal, L) ->
@@ -1957,6 +1959,8 @@ include(Goal, [L|Ls0], Ls) :-
), ),
include(Goal, Ls0, Rest). include(Goal, Ls0, Rest).
:- meta_predicate(exclude(1, ?, ?)).
exclude(_, [], []). exclude(_, [], []).
exclude(Goal, [L|Ls0], Ls) :- exclude(Goal, [L|Ls0], Ls) :-
( call(Goal, L) -> ( call(Goal, L) ->