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

condense reverse even further

Browse Source
This commit is contained in:
Mark Thom
2019-03-03 17:36:20 -07:00
parent 3fc0a230fa
commit f35008cbd6
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/prolog/lib/dif.pl
View File

@@ -37,7 +37,8 @@ verify_attributes(Var, Value, Goals) :-
% suggestions for improvement.
dif(X, Y) :- X \== Y,
( term_variables(X, XVars), term_variables(Y, YVars),
( X \= Y -> true
; term_variables(X, XVars), term_variables(Y, YVars),
dif_set_variables(XVars, X, Y),
dif_set_variables(YVars, X, Y)
).