mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(scm_real_part): Return fraction unchanged rather than converting to flonum.

Browse source
This commit is contained in:
Kevin Ryde 2003-12-02 21:27:13 +00:00
parent 64b4cbe4f3
commit 2fa2d87937
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

@ -4980,7 +4980,7 @@ scm_real_part (SCM z)
else if (SCM_COMPLEXP (z)) else if (SCM_COMPLEXP (z))
return scm_make_real (SCM_COMPLEX_REAL (z)); return scm_make_real (SCM_COMPLEX_REAL (z));
else if (SCM_FRACTIONP (z)) else if (SCM_FRACTIONP (z))
return scm_make_real (scm_i_fraction2double (z)); return z;
else else
SCM_WTA_DISPATCH_1 (g_real_part, z, SCM_ARG1, s_real_part); SCM_WTA_DISPATCH_1 (g_real_part, z, SCM_ARG1, s_real_part);
} }