/[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.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);

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

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