Fix typo in comment.
authorMark H Weaver <mhw@netris.org>
Wed, 17 Apr 2019 11:32:23 +0000 (07:32 -0400)
committerMark H Weaver <mhw@netris.org>
Tue, 7 May 2019 08:37:52 +0000 (04:37 -0400)
libguile/numbers.c

index 1a04cca4357f0e03704dc1449f7e1deeae5745fa..31fdee47abb870b131f6d36d7eebd45369dab102 100644 (file)
@@ -586,7 +586,7 @@ scm_i_divide2double (SCM n, SCM d)
   mpz_mul_2exp (hi, lo, 1);
 
   /* 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)
     {
       mpz_mul_2exp (x, x, 1);