Parent Directory | Revision Log | Patch
revision 1.218 by kryde, Tue Dec 2 21:27:13 2003 UTC | revision 1.219 by kryde, Tue Dec 2 21:36:39 2003 UTC | |
---|---|---|
# | Line 3162 scm_less_p (SCM x, SCM y) | Line 3162 scm_less_p (SCM x, SCM y) |
3162 | else if (SCM_BIGP (y)) | else if (SCM_BIGP (y)) |
3163 | { | { |
3164 | int cmp; | int cmp; |
if (xisnan (SCM_REAL_VALUE (x))) | ||
return SCM_BOOL_F; | ||
3165 | cmp = xmpz_cmp_d (SCM_I_BIG_MPZ (y), scm_i_fraction2double (x)); | cmp = xmpz_cmp_d (SCM_I_BIG_MPZ (y), scm_i_fraction2double (x)); |
3166 | scm_remember_upto_here_1 (y); | scm_remember_upto_here_1 (y); |
3167 | return SCM_BOOL (cmp > 0); | return SCM_BOOL (cmp > 0); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |