From: Markus Triska <triska@metalevel.at>
Date: Fri, 6 Oct 2023 20:55:46 +0000 (+0200)
Subject: FIXED: reification of (/)/2 for undefined subexpressions
X-Git-Tag: remove~47^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=7ed38d6c6cb23738e570590d1dd7acfca463a08a;p=scryer-prolog.git

FIXED: reification of (/)/2 for undefined subexpressions

This addresses #2078 and #2079.
---

diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl
index f438043d..4a40e414 100644
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -3549,7 +3549,8 @@ parse_reified(E, R, D,
                m(max(A,B))   => [d(D), p(pgeq(R, A)), p(pgeq(R, B)), p(pmax(A,B,R)), a(A,B,R)],
                m(min(A,B))   => [d(D), p(pgeq(A, R)), p(pgeq(B, R)), p(pmin(A,B,R)), a(A,B,R)],
                m(abs(A))     => [g(#R#>=0), d(D), p(pabs(A, R)), a(A,R)],
-               m(A/B)        => [p(preified_slash(A,B,D,R)), a(A,B,R)],
+               m(A/B)        => [d(D1), p(preified_slash(A,B,D2,R)),
+                                 p(reified_and(D1,[],D2,[],D)),a(D2),a(A,B,R)],
                m(A//B)       => [skeleton(A,B,D,R,ptzdiv)],
                m(A div B)    => [skeleton(A,B,D,R,pdiv)],
                m(A mod B)    => [skeleton(A,B,D,R,pmod)],