modify domain.pl example (#347)

This commit is contained in:
Mark Thom
2020-04-28 01:39:34 -06:00
parent f8717359d7
commit ab77a1cbc0

View File

@@ -22,7 +22,6 @@ verify_attributes(Var, Other, Goals) :-
( Els = [] -> % exactly one element ( Els = [] -> % exactly one element
Goals = [Other=El] % implied binding Goals = [Other=El] % implied binding
; Goals = [], ; Goals = [],
put_atts(Other, -dom(_)),
put_atts(Other, dom(Dc))% rescue intersection put_atts(Other, dom(Dc))% rescue intersection
) )
; Goals = [], ; Goals = [],