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

* num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then

Browse source 
clause.
This commit is contained in:
Mikael Djurfeldt 2003-04-06 08:51:02 +00:00
parent e3be7ddda5
commit 938f6b7c81
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,6 +1,11 @@
2003-04-06 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* num2integral.i.c (INTEGRAL2BIG): Put negation of n inside then
clause.
2003-04-05 Rob Browning <rlb@defaultvalue.org>
* modules.c (s_scm_module_import_interface): move declaration of
* modules.c (scm_module_import_interface): move declaration of
uses before any code.
2003-04-05 Mikael Djurfeldt <djurfeldt@nada.kth.se>

7
libguile/num2integral.i.c
View file

@ -195,8 +195,11 @@ INTEGRAL2BIG (ITYPE n)
/* mpz_import doesn't handle sign -- have to use #if here rather
than if b/c gcc warnings for ushort, etc. */
#if !UNSIGNED
if (n < 0) neg_input = 1;
n = - n;
if (n < 0)
{
neg_input = 1;
n = - n;
}
#endif
mpz_import (SCM_I_BIG_MPZ (result),