modify domain.pl example (#347)

2020-04-28 01:39:34 -06:00
parent f8717359d7
commit ab77a1cbc0
1 changed files with 0 additions and 1 deletions
--- a/src/prolog/examples/domain.pl
+++ b/src/prolog/examples/domain.pl
@@ -22,7 +22,6 @@ verify_attributes(Var, Other, Goals) :-
                (   Els = [] ->             % exactly one element
                    Goals = [Other=El]      % implied binding
                ;   Goals = [],
-		    put_atts(Other, -dom(_)),
                    put_atts(Other, dom(Dc))% rescue intersection
                )
            ;   Goals = [],