From: Markus Triska <triska@metalevel.at>
Date: Wed, 22 Feb 2023 20:05:31 +0000 (+0100)
Subject: in projection of residual goals, mark considered propagators as processed
X-Git-Tag: v0.9.2~177^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=2a04d5e799fbb599931b93b25fc9afd4a52ce6da;p=scryer-prolog.git

in projection of residual goals, mark considered propagators as processed

This is to avoid duplicated goals with the new projection mechanism.
---

diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl
index 5823aa42..9404097e 100644
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -7711,7 +7711,7 @@ attributes_goals([]) --> [].
 attributes_goals([propagator(P, State)|As]) -->
         (   { ground(State) } -> []
         ;   { phrase(attribute_goal_(P), Gs) } ->
-            { % del_attr(State, clpz_aux), State = processed,
+            { del_attr(State, clpz_aux), State = processed,
               (   monotonic ->
                   maplist(unwrap_with(bare_integer), Gs, Gs1)
               ;   maplist(unwrap_with(=), Gs, Gs1)
@@ -7822,7 +7822,7 @@ conjunction(A, B, G, D) -->
 
 original_goal(original_goal(State, Goal)) -->
         (   { var(State) } ->
-%            { State = processed },
+            { State = processed },
             [Goal]
         ;   []
         ).