In scm_difference, amend comment about normbig.
authorKevin Ryde <user42@zip.com.au>
Mon, 14 Feb 2005 23:14:35 +0000 (23:14 +0000)
committerKevin Ryde <user42@zip.com.au>
Mon, 14 Feb 2005 23:14:35 +0000 (23:14 +0000)
libguile/numbers.c

index 0831645..d33edde 100644 (file)
@@ -4102,7 +4102,8 @@ scm_difference (SCM x, SCM y)
               return scm_i_long2big (xx);
           }
         else if (SCM_BIGP (x))
-          /* FIXME: do we really need to normalize here? */
+          /* Must scm_i_normbig here because -SCM_MOST_NEGATIVE_FIXNUM is a
+             bignum, but negating that gives a fixnum.  */
           return scm_i_normbig (scm_i_clonebig (x, 0));
         else if (SCM_REALP (x))
           return scm_from_double (-SCM_REAL_VALUE (x));