diff --git a/src/lib/dif.pl b/src/lib/dif.pl index ad3053ec..bb92979a 100644 --- a/src/lib/dif.pl +++ b/src/lib/dif.pl @@ -49,7 +49,9 @@ dif(X, Y) :- gather_dif_goals([]) --> []. gather_dif_goals([(X \== Y) | Goals]) --> - [dif(X, Y)], + ( { X \= Y } -> [] + ; [dif(X, Y)] + ), gather_dif_goals(Goals). attribute_goals(X) -->