From 0b0c8e3b4c5e4706ea3d4bc87670dbfb114101a5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 19 Nov 2003 04:30:40 +0000 Subject: [PATCH] * numbers.c (scm_make_ratio): Don't declare divisible_p after statements. --- libguile/numbers.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index fad644165..a01464425 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -392,11 +392,13 @@ scm_make_ratio (SCM numerator, SCM denominator) /* both are bignums */ if (SCM_EQ_P (numerator, denominator)) return SCM_MAKINUM(1); - int divisible_p = mpz_divisible_p (SCM_I_BIG_MPZ (numerator), - SCM_I_BIG_MPZ (denominator)); - if (divisible_p) + if (mpz_divisible_p (SCM_I_BIG_MPZ (numerator), + SCM_I_BIG_MPZ (denominator))) return scm_divide(numerator, denominator); - else return scm_double_cell (scm_tc16_fraction, (scm_t_bits)numerator, (scm_t_bits)denominator, 0); + else + return scm_double_cell (scm_tc16_fraction, + (scm_t_bits)numerator, + (scm_t_bits)denominator, 0); } } else SCM_WRONG_TYPE_ARG (1, numerator); -- 2.20.1