Parent Directory | Revision Log | Patch
revision 1.217 by kryde, Tue Dec 2 21:21:14 2003 UTC | revision 1.218 by kryde, Tue Dec 2 21:27:13 2003 UTC | |
---|---|---|
# | Line 4980 scm_real_part (SCM z) | Line 4980 scm_real_part (SCM z) |
4980 | else if (SCM_COMPLEXP (z)) | else if (SCM_COMPLEXP (z)) |
4981 | return scm_make_real (SCM_COMPLEX_REAL (z)); | return scm_make_real (SCM_COMPLEX_REAL (z)); |
4982 | else if (SCM_FRACTIONP (z)) | else if (SCM_FRACTIONP (z)) |
4983 | return scm_make_real (scm_i_fraction2double (z)); | return z; |
4984 | else | else |
4985 | 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); |
4986 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |