From: Markus Triska <triska@metalevel.at>
Date: Thu, 4 Feb 2021 19:48:09 +0000 (+0100)
Subject: preliminary workaround for #788
X-Git-Tag: v0.9.0~150^2~65^2~21^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=164b9930640656700505188eab684b3575ab1fe8;p=scryer-prolog.git

preliminary workaround for #788

This change can be reverted once the issue is resolved.
---

diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl
index b7fa0ea7..b687354e 100644
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -6090,7 +6090,7 @@ distinct_goals_([flow_to(F,To)|Es], V) -->
               get_attr(To, lowlink, L2),
               L1 =\= L2 } ->
             { get_attr(To, value, N) },
-            [neq_num(V, N)]
+            [clpz:neq_num(V, N)]
         ;   []
         ),
         distinct_goals_(Es, V).
@@ -6611,7 +6611,7 @@ gcc_edge_goal(arc_to(_,_,V,F), Val) -->
               get_attr(Val, lowlink, L2),
               L1 =\= L2,
               get_attr(Val, value, Value) } ->
-            [neq_num(V, Value)]
+            [clpz:neq_num(V, Value)]
         ;   []
         ).