/[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.208 by mvo, Wed Nov 19 02:19:03 2003 UTC revision 1.209 by mvo, Wed Nov 19 02:38:37 2003 UTC
# Line 442  SCM_DEFINE (scm_exact_p, "exact?", 1, 0, Line 442  SCM_DEFINE (scm_exact_p, "exact?", 1, 0,
442      return SCM_BOOL_T;      return SCM_BOOL_T;
443    if (SCM_FRACTIONP (x))    if (SCM_FRACTIONP (x))
444      return SCM_BOOL_T;      return SCM_BOOL_T;
445    return SCM_BOOL_F;    if (SCM_NUMBERP (x))
446        return SCM_BOOL_F;
447      SCM_WRONG_TYPE_ARG (1, x);
448  }  }
449  #undef FUNC_NAME  #undef FUNC_NAME
450    
# Line 2912  SCM_DEFINE (scm_inexact_p, "inexact?", 1 Line 2914  SCM_DEFINE (scm_inexact_p, "inexact?", 1
2914              "else.")              "else.")
2915  #define FUNC_NAME s_scm_inexact_p  #define FUNC_NAME s_scm_inexact_p
2916  {  {
2917    return SCM_BOOL (SCM_INEXACTP (x));    if (SCM_INEXACTP (x))
2918        return SCM_BOOL_T;
2919      if (SCM_NUMBERP (x))
2920        return SCM_BOOL_F;
2921      SCM_WRONG_TYPE_ARG (1, x);
2922  }  }
2923  #undef FUNC_NAME  #undef FUNC_NAME
2924    

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

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