diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-12 11:59:42 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-12 11:59:42 +0000 |
commit | ffdcbb3f8d507dc70b1f786ed9c4c70c0759e8af (patch) | |
tree | 34a006d23fca48a15198b55e51cfce36081a73ca /libguile/smob.c | |
parent | 369720835ef2bdfea9018d8012ef9efa663a68c8 (diff) | |
download | guile-ffdcbb3f8d507dc70b1f786ed9c4c70c0759e8af.tar.gz |
* smob.h (scm_smobfuns): Removed deprecated type.
* smob.c, smob.h (scm_newsmob): Removed deprecated function.
(Replaced by `scm_make_smob_type'.)
Diffstat (limited to 'libguile/smob.c')
-rw-r--r-- | libguile/smob.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/libguile/smob.c b/libguile/smob.c index e07b24c50..3b5f74069 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -204,23 +204,6 @@ scm_set_smob_mfpe (long tc, } -#if (SCM_DEBUG_DEPRECATED == 0) - -/* Use scm_make_smob_type or scm_make_smob_type_mfpe instead. */ -long -scm_newsmob (const scm_smobfuns *smob) -{ - long tc = scm_make_smob_type (0, 0); - scm_set_smob_mark (tc, smob->mark); - scm_set_smob_free (tc, smob->free); - scm_set_smob_print (tc, smob->print); - scm_set_smob_equalp (tc, smob->equalp); - return tc; -} - -#endif /* SCM_DEBUG_DEPRECATED == 0 */ - - SCM scm_make_smob (long tc) { |