fix attributed variables bug causing weighted_maximum/3 example to omit a variable binding

2019-10-20 14:50:46 -06:00
parent 24e5e39c28
commit 1b1879a6fa
9 changed files with 44 additions and 26 deletions
--- a/src/prolog/lib/dif.pl
+++ b/src/prolog/lib/dif.pl
@@ -51,4 +51,5 @@ gather_dif_goals([(X \== Y) | Goals]) -->

 attribute_goals(X) -->
    { get_atts(X, +dif(Goals)) },
-    gather_dif_goals(Goals).
+    gather_dif_goals(Goals),
+    { put_atts(X, -dif(_)) }.