Merge pull request #2070 from triska/expansion_simpler

FIXED: corrections to expansion_simpler/2
2023-10-02 16:06:10 -06:00
parent 27b971cbfa f3b848537a
commit 770665a7b8
1 changed files with 2 additions and 2 deletions
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -3099,13 +3099,13 @@ expansion_simpler(Var is Expr0, Goal) :-
        ground(Expr0), !,
        phrase(expr_conds(Expr0, Expr), Gs),
        (   maplist(call, Gs) -> Value is Expr, Goal = (Var = Value)
-        ;   Goal = false
+        ;   Goal = (Var is Expr0)
        ).
 expansion_simpler(Var =:= Expr0, Goal) :-
        ground(Expr0), !,
        phrase(expr_conds(Expr0, Expr), Gs),
        (   maplist(call, Gs) -> Value is Expr, Goal = (Var =:= Value)
-        ;   Goal = false
+        ;   Goal = (Var =:= Expr0)
        ).
 expansion_simpler(between:between(L,U,V), Goal) :-
        maplist(integer, [L,U,V]),