diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:29:27 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:29:27 +0000 |
commit | 3aa13a0579ec82845fa5374ac3fdf673d874d3e0 (patch) | |
tree | a09efb8dad95bcc2dddd92e89d66d1cfa315288a /libguile/deprecated.c | |
parent | ae13e8e1ca81494bd45bc5e86750b67979036470 (diff) | |
download | guile-3aa13a0579ec82845fa5374ac3fdf673d874d3e0.tar.gz |
(SCM_INUMP, SCM_NINUMP, SCM_INUM): Deprecated by reenaming them to
SCM_I_INUMP, SCM_I_NINUMP and SCM_I_INUM, respectively and adding
deprecated versions to deprecated.h and deprecated.c. Changed all
uses to either use the SCM_I_ variants or scm_is_*, scm_to_*, or
scm_from_*, as appropriate.
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 |