diff options
-rw-r--r-- | libguile/smob.c | 17 | ||||
-rw-r--r-- | libguile/smob.h | 14 |
2 files changed, 0 insertions, 31 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) { diff --git a/libguile/smob.h b/libguile/smob.h index 0d8f07710..30c9d0194 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -162,20 +162,6 @@ extern void scm_smob_prehistory (void); -#if (SCM_DEBUG_DEPRECATED == 0) - -typedef struct scm_smobfuns -{ - SCM (*mark) (SCM); - scm_sizet (*free) (SCM); - int (*print) (SCM exp, SCM port, scm_print_state *pstate); - SCM (*equalp) (SCM, SCM); -} scm_smobfuns; - -extern long scm_newsmob (const scm_smobfuns *smob); - -#endif /* SCM_DEBUG_DEPRECATED == 0 */ - #endif /* SMOBH */ /* |