summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/smob.c17
-rw-r--r--libguile/smob.h14
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 */
/*