]> Repositorios git - scryer-prolog.git/commitdiff
FIXED: reification of (/)/2 for undefined subexpressions
authorMarkus Triska <[email protected]>
Fri, 6 Oct 2023 20:55:46 +0000 (22:55 +0200)
committerMarkus Triska <[email protected]>
Fri, 6 Oct 2023 20:55:46 +0000 (22:55 +0200)
This addresses #2078 and #2079.

src/lib/clpz.pl

index f438043d23e06f2efef46c1e23c79bf079479505..4a40e4149a6b3167836907e011f671e98eb57eba 100644 (file)
@@ -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)],