diff --git a/C/cmppreds.c b/C/cmppreds.c index 2afb861ab..e4dff2d5b 100644 --- a/C/cmppreds.c +++ b/C/cmppreds.c @@ -681,35 +681,35 @@ a_eq(Term t1, Term t2) static Int a_dif(Term t1, Term t2) { - int out = a_cmp(t1,t2); + int out = a_cmp(Deref(t1),Deref(t2)); return !ArithError && out != 0; } static Int a_gt(Term t1, Term t2) { /* A > B */ - int out = a_cmp(t1,t2); + int out = a_cmp(Deref(t1),Deref(t2)); return !ArithError && out > 0; } static Int a_ge(Term t1, Term t2) { /* A >= B */ - int out = a_cmp(t1,t2); + int out = a_cmp(Deref(t1),Deref(t2)); return !ArithError && out >= 0; } static Int a_lt(Term t1, Term t2) { /* A < B */ - int out = a_cmp(t1,t2); + int out = a_cmp(Deref(t1),Deref(t2)); return !ArithError && out < 0; } static Int a_le(Term t1, Term t2) { /* A <= B */ - int out = a_cmp(t1,t2); + int out = a_cmp(Deref(t1),Deref(t2)); return !ArithError && out <= 0; }