summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-23 15:29:27 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-23 15:29:27 +0000
commit3aa13a0579ec82845fa5374ac3fdf673d874d3e0 (patch)
treea09efb8dad95bcc2dddd92e89d66d1cfa315288a /libguile/deprecated.c
parentae13e8e1ca81494bd45bc5e86750b67979036470 (diff)
downloadguile-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.c18
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