mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

Fix typo in comment.

Browse source
This commit is contained in:
Mark H Weaver 2019-04-17 07:32:23 -04:00
parent 2a1f22c00a
commit 16b4bac355
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -586,7 +586,7 @@ scm_i_divide2double (SCM n, SCM d)
mpz_mul_2exp (hi, lo, 1); mpz_mul_2exp (hi, lo, 1);
/* Adjust e as needed to satisfy the inequality lo <= x < hi, /* Adjust e as needed to satisfy the inequality lo <= x < hi,
(but without making e less then the minimum exponent) */ (but without making e less than the minimum exponent) */
while (mpz_cmp (x, lo) < 0 && e > DBL_MIN_EXP - DBL_MANT_DIG) while (mpz_cmp (x, lo) < 0 && e > DBL_MIN_EXP - DBL_MANT_DIG)
{ {
mpz_mul_2exp (x, x, 1); mpz_mul_2exp (x, x, 1);