Merge pull request #667 from triska/clpb_taut

omit internal attributes in residual goals when using taut/2
This commit is contained in:
Mark Thom
2020-08-11 15:54:34 -03:00
committed by GitHub

View File

@@ -1558,9 +1558,10 @@ sats([]) --> [].
sats([A|As]) --> [clpb:sat(A)], sats(As).
booleans([]) --> [].
booleans([B|Bs]) --> boolean(B), { del_clpb(B) }, booleans(Bs).
booleans([B|Bs]) --> boolean(B), booleans(Bs).
boolean(Var) -->
{ del_clpb(Var) },
( { get_attr(Var, clpb_omit_boolean, true) } -> []
; [clpb:sat(Var =:= Var)]
).