fix unbound in ,
This commit is contained in:
parent
e69c9fc056
commit
b494cce5dc
@ -76,6 +76,9 @@ lists:delete([Head|List], Elem, [Head|Residue]) :-
|
|||||||
|
|
||||||
:- '$set_yap_flags'(11,0). % disable source.
|
:- '$set_yap_flags'(11,0). % disable source.
|
||||||
|
|
||||||
|
conjunctions:conj_member(X, Y) :-
|
||||||
|
var(Y), !,
|
||||||
|
X = Y.
|
||||||
conjunctions:conj_member(X, (C1,C2)) :-
|
conjunctions:conj_member(X, (C1,C2)) :-
|
||||||
conjunctions:conj_member(X, C1).
|
conjunctions:conj_member(X, C1).
|
||||||
conjunctions:conj_member(X, (C1,C2)) :-
|
conjunctions:conj_member(X, (C1,C2)) :-
|
||||||
|
Reference in New Issue
Block a user