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/freeze.pl
+++ b/src/prolog/lib/freeze.pl
@@ -26,6 +26,7 @@ gather_freeze_goals(Attrs, _) -->
    !.
 gather_freeze_goals([frozen(X) | _], Var) -->
    [freeze(Var, X)],
+    { put_atts(Var, -frozen(_)) },
    !.
 gather_freeze_goals([_ | Attrs], Var) -->
    gather_freeze_goals(Attrs, Var).