summaryrefslogtreecommitdiff
path: root/libguile/smob.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-15 11:47:48 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-15 11:47:48 +0000
commitf5f2dcffbea9a33f0e1d2adbe07b20fcf7ac3322 (patch)
treee71c3be5e7b8d307a9a608fd71ff9fe9fc7e5d23 /libguile/smob.c
parentae09e7ac288fd8fd467d3278bff2e9ccbefb862d (diff)
downloadguile-f5f2dcffbea9a33f0e1d2adbe07b20fcf7ac3322.tar.gz
* Wrapped deprecated code between #if (SCM_DEBUG_DEPRECATED == 0) #endif.
* Replace use of deprecated macros SCM_INPORTP, SCM_OUTPORTP, SCM_ICHRP.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r--libguile/smob.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/libguile/smob.c b/libguile/smob.c
index 2f65e8eb8..e07b24c50 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -203,8 +203,10 @@ scm_set_smob_mfpe (long tc,
if (equalp) scm_set_smob_equalp (tc, equalp);
}
-/* Deprecated function - use scm_make_smob_type, or scm_make_smob_type_mfpe
- instead. */
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
+/* Use scm_make_smob_type or scm_make_smob_type_mfpe instead. */
long
scm_newsmob (const scm_smobfuns *smob)
{
@@ -216,6 +218,8 @@ scm_newsmob (const scm_smobfuns *smob)
return tc;
}
+#endif /* SCM_DEBUG_DEPRECATED == 0 */
+
SCM
scm_make_smob (long tc)