diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 8f9ee63e779..9d7e7effdcd 100644 --- a/src/data.c +++ b/src/data.c @@ -3190,9 +3190,9 @@ arith_driver (enum arithop code, ptrdiff_t nargs, Lisp_Object *args, intmax_t a; switch (code) { - case Aadd : overflow = INT_ADD_WRAPV (accum, next, &a); break; - case Amult: overflow = INT_MULTIPLY_WRAPV (accum, next, &a); break; - case Asub : overflow = INT_SUBTRACT_WRAPV (accum, next, &a); break; + case Aadd : overflow = ckd_add (&a, accum, next); break; + case Amult: overflow = ckd_mul (&a, accum, next); break; + case Asub : overflow = ckd_sub (&a, accum, next); break; case Adiv: if (next == 0) xsignal0 (Qarith_error); |