mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

In scm_difference, amend comment about normbig.

Browse source
This commit is contained in:
Kevin Ryde 2005-02-14 23:14:35 +00:00
parent f7fb2f39a4
commit a9ad484720
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/numbers.c
View 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));