mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +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); return scm_i_long2big (xx);
} }
else if (SCM_BIGP (x)) 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)); return scm_i_normbig (scm_i_clonebig (x, 0));
else if (SCM_REALP (x)) else if (SCM_REALP (x))
return scm_from_double (-SCM_REAL_VALUE (x)); return scm_from_double (-SCM_REAL_VALUE (x));