]> Repositorios git - scryer-prolog.git/commitdiff
resolve phrase modules internally (#1541)
authorMark Thom <[email protected]>
Sun, 24 Jul 2022 21:20:53 +0000 (15:20 -0600)
committerMark Thom <[email protected]>
Thu, 27 Oct 2022 05:36:07 +0000 (23:36 -0600)
src/lib/clpz.pl

index 2c472a82bfb8f2144fa66723c8143039ae7968cd..bb9ffcba08f0f3b69de30f8f272555523695da5e 100644 (file)
@@ -7611,7 +7611,7 @@ verify_attributes(Var, Other, Gs) :-
                 ),
                 domain_contains(Dom, Other),
                 phrase(trigger_props(Ps), [Q], [_]),
-                Gs = [phrase(clpz:do_queue, [Q], _)]
+                Gs = [phrase(do_queue, [Q], _)]
             ;   (   get_atts(Other, clpz(clpz_attr(_,_,_,OD,OPs,_))) ->
                     domains_intersection(OD, Dom, Dom1),
                     append_propagators(Ps, OPs, Ps1),
@@ -7619,7 +7619,7 @@ verify_attributes(Var, Other, Gs) :-
                     variables_same_queue([Var,Other]),
                     phrase((fd_put(Other,Dom1,Ps1),
                             trigger_props(Ps1)), [Q0], _),
-                    Gs = [phrase(clpz:do_queue, [Q0], _)]
+                    Gs = [phrase(do_queue, [Q0], _)]
                 ;   put_atts(Other, clpz(CLPZ)),
                     Gs = []
                 )