]> Repositorios git - scryer-prolog.git/commitdiff
Trigger propagator for (xor)/2
authornotoria <[email protected]>
Sat, 14 Oct 2023 14:10:31 +0000 (16:10 +0200)
committerMark <[email protected]>
Sat, 14 Oct 2023 18:11:24 +0000 (12:11 -0600)
src/lib/clpz.pl

index 771cd857b59b64156e83155d53a367877bae8cc7..705ffeb7c8a5028b1c1ab511ef428eabdf31c35c 100644 (file)
@@ -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))]]
              ).