mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Merge commit 'd360671c1c'

Browse source
This commit is contained in:
Andy Wingo 2013-11-28 14:46:24 +01:00
commit 091dd0cc58
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -4998,7 +4998,7 @@ left_shift_exact_integer (SCM n, long count)
mpz_mul_2exp (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (result), mpz_mul_2exp (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (result),
count); count);
return scm_i_normbig (result); return scm_i_normbig (result);
} }
} }
else if (SCM_BIGP (n)) else if (SCM_BIGP (n))
{ {