rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #2090 from triska/morphing_propagators

Browse Source 
FIXED: Queue triggered propagators to be processed after pexp/3 finishes
This commit is contained in:
Mark Thom
2023-10-09 13:20:44 -06:00
committed by GitHub
parent 4b9cf0952e cacc7f3193
commit c6976c0f92
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/clpz.pl
View File

@@ -5498,7 +5498,9 @@ run_propagator(pexp(X,Y,Z), MState) -->
) )
; nonvar(Y), Y > 0 -> ; nonvar(Y), Y > 0 ->
( { even(Y) } -> ( { even(Y) } ->
{ geq(Z, 0) } { fd_get(Z, ZD0, ZPs0),
domain_remove_smaller_than(ZD0, 0, ZDG0) },
fd_put(Z, ZDG0, ZPs0)
; true ; true
), ),
( { fd_get(X, XD, XL, XU, _), fd_get(Z, ZD, ZL, ZU, ZPs) } -> ( { fd_get(X, XD, XL, XU, _), fd_get(Z, ZD, ZL, ZU, ZPs) } ->