; * src/timefns.c: Fix typo in previous change.

This commit is contained in:
Paul Eggert 2020-03-08 16:49:32 -07:00
parent 20d3d3a950
commit cf223dc928

View file

@ -616,7 +616,7 @@ frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
(N * FLT_RADIX**SCALE) / D [or, if SCALE is negative, N / (D *
FLT_RADIX**-SCALE)] as a bignum, convert the bignum to double,
then divide the double by FLT_RADIX**SCALE. First scale N
N (or scale D, if SCALE is negative) ... */
(or scale D, if SCALE is negative) ... */
ptrdiff_t scale = ddig - ndig + DBL_MANT_DIG + 1;
if (scale < 0)
{