diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index a0275ccb9..eb1150456 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1110,7 +1110,23 @@ SCM_MAKINUM (scm_t_signed_bits val) { scm_c_issue_deprecation_warning ("SCM_MAKINUM is deprecated. Use scm_from_int or similar instead."); - return scm_from_int (val); + return SCM_I_MAKINUM (val); +} + +int +SCM_INUMP (SCM obj) +{ + scm_c_issue_deprecation_warning + ("SCM_INUMP is deprecated. Use scm_is_integer or similar instead."); + return SCM_I_INUMP (obj); +} + +scm_t_signed_bits +SCM_INUM (SCM obj) +{ + scm_c_issue_deprecation_warning + ("SCM_INUM is deprecated. Use scm_to_int or similar instead."); + return scm_to_intmax (obj); } void |