/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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  }  }

Legend:
Removed from v.1.217  
changed lines
  Added in v.1.218

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26