From: Markus Triska <triska@metalevel.at>
Date: Wed, 15 Mar 2023 18:56:02 +0000 (+0100)
Subject: show remaining queue/2 attributes as residual goals
X-Git-Tag: v0.9.2~163^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=cd586aab8c69376b680992c40d172af4005f8565;p=scryer-prolog.git

show remaining queue/2 attributes as residual goals

This lets us verify that all attributes are correctly removed earlier.
---

diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl
index fd5d9d18..afc6f8cd 100644
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -7683,10 +7683,6 @@ 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),_)),