From 2fa2d8793748b5e3dfc04cea28b0d08ada5aa3f8 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Tue, 2 Dec 2003 21:27:13 +0000 Subject: [PATCH] (scm_real_part): Return fraction unchanged rather than converting to flonum. --- libguile/numbers.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 31bd94c32..c3c4e3c90 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4980,7 +4980,7 @@ scm_real_part (SCM z) else if (SCM_COMPLEXP (z)) return scm_make_real (SCM_COMPLEX_REAL (z)); else if (SCM_FRACTIONP (z)) - return scm_make_real (scm_i_fraction2double (z)); + return z; else SCM_WTA_DISPATCH_1 (g_real_part, z, SCM_ARG1, s_real_part); } -- 2.20.1