expand phrase/{2,3} using dcg_body whenever possible

2022-01-20 23:32:08 -07:00
parent af76068297
commit 8df346f377
3 changed files with 58 additions and 100 deletions
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -6169,7 +6169,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).
@@ -6690,7 +6690,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)]
        ;   []
        ).