diff --git a/C/arith1.c b/C/arith1.c index d99ae6a88..477881b60 100644 --- a/C/arith1.c +++ b/C/arith1.c @@ -746,7 +746,7 @@ eval1(Int fi, Term t) { Term Yap_eval_unary(Int f, Term t) { - return Yap_FoundArithError(eval1(f,t), t); + return eval1(f,t); } static InitUnEntry InitUnTab[] = { diff --git a/C/arith2.c b/C/arith2.c index 720d0065c..e79ca6284 100644 --- a/C/arith2.c +++ b/C/arith2.c @@ -1076,7 +1076,7 @@ eval2(Int fi, Term t1, Term t2) { Term Yap_eval_binary(Int f, Term t1, Term t2) { - return Yap_FoundArithError(eval2(f,t1,t2), 0L); + return eval2(f,t1,t2); } static InitBinEntry InitBinTab[] = {