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 |
|
|
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 |
|
|