From: notoria <notoria@users.noreply.github.com>
Date: Sat, 14 Oct 2023 14:10:31 +0000 (+0200)
Subject: Trigger propagator for (xor)/2
X-Git-Tag: remove~28
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=dc08c26d9f2fb7cd35696fe4e17949ea5d258904;p=scryer-prolog.git

Trigger propagator for (xor)/2
---

diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl
index 771cd857..705ffeb7 100644
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -3591,7 +3591,7 @@ parse_reified(E, R, D,
                m(A>>B)       => [function(D,>>,A,B,R)],
                m(A/\B)       => [function(D,/\,A,B,R)],
                m(A\/B)       => [function(D,\/,A,B,R)],
-               m(xor(A, B))  => [function(D,xor,A,B,R)],
+               m(xor(A, B))  => [skeleton(A,B,D,R,pxor)],
                g(true)       => [g(domain_error(clpz_expression, E))]]
              ).