fix unbound in ,

This commit is contained in:
Vitor Santos Costa 2015-01-17 02:41:57 -08:00
parent e69c9fc056
commit b494cce5dc

View File

@ -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)) :-