rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

do not check for non-unifiability in dif:attribute_goals, which is sure to succeed, resulting in no goals being printed at top-level (#844)

Browse Source
This commit is contained in:
Mark Thom
2021-03-02 09:50:25 -07:00
parent d32d452583
commit 5976e2d873
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/dif.pl
View File

@@ -41,7 +41,8 @@ verify_attributes(Var, Value, Goals) :-
dif(X, Y) :- dif(X, Y) :-
X \== Y, X \== Y,
( X \= Y -> true ( X \= Y -> true
; ( term_variables(X, XVars), term_variables(Y, YVars), ; ( term_variables(X, XVars),
term_variables(Y, YVars),
dif_set_variables(XVars, X, Y), dif_set_variables(XVars, X, Y),
dif_set_variables(YVars, X, Y) dif_set_variables(YVars, X, Y)
) )
@@ -49,9 +50,7 @@ dif(X, Y) :-
gather_dif_goals([]) --> []. gather_dif_goals([]) --> [].
gather_dif_goals([(X \== Y) | Goals]) --> gather_dif_goals([(X \== Y) | Goals]) -->
( { X \= Y } -> [] [dif:dif(X, Y)],
; [dif:dif(X, Y)]
),
gather_dif_goals(Goals). gather_dif_goals(Goals).
attribute_goals(X) --> attribute_goals(X) -->