From: Markus Triska <triska@metalevel.at>
Date: Sun, 3 May 2020 22:54:43 +0000 (+0200)
Subject: do not project queue/2 attributes to residual goals
X-Git-Tag: v0.8.123~61^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=605c2337530fdd262add7f1ab894b1798e4a922f;p=scryer-prolog.git

do not project queue/2 attributes to residual goals
---

diff --git a/src/prolog/lib/clpz.pl b/src/prolog/lib/clpz.pl
index 54c4b457..61d3e4b6 100644
--- a/src/prolog/lib/clpz.pl
+++ b/src/prolog/lib/clpz.pl
@@ -7424,6 +7424,10 @@ intervals_to_drep([A0-B0|Rest], Drep0, Drep) :-
         ),
         intervals_to_drep(Rest, Drep0 \/ D1, Drep).
 
+attribute_goals(X) -->
+        { get_atts(X, queue(_,_)) },
+        !,
+        { put_atts(X, -queue(_,_)) }.
 attribute_goals(X) -->
         % { get_attr(X, clpz, Attr), format("A: ~w\n", [Attr]) },
         { get_attr(X, clpz, clpz_attr(_,_,_,Dom,fd_props(Gs,Bs,Os),_)),