summaryrefslogtreecommitdiff
path: root/libguile/smob.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 12:13:50 +0000
commitdee01b012cd5179b70a2e361ee08c364ed9f3314 (patch)
tree342478de9cb5237437a734aa88b7c9fe26533845 /libguile/smob.c
parentb29058ffee392969b448f8157afaf370c17a736c (diff)
downloadguile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r--libguile/smob.c33
1 files changed, 0 insertions, 33 deletions
diff --git a/libguile/smob.c b/libguile/smob.c
index 16fef9fcb..b4935ba81 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -476,39 +476,6 @@ scm_make_smob (scm_t_bits tc)
}
-/* {Deprecated stuff}
- */
-
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-long
-scm_make_smob_type_mfpe (char *name, size_t size,
- SCM (*mark) (SCM),
- size_t (*free) (SCM),
- int (*print) (SCM, SCM, scm_print_state *),
- SCM (*equalp) (SCM, SCM))
-{
- long answer = scm_make_smob_type (name, size);
- scm_set_smob_mfpe (answer, mark, free, print, equalp);
- return answer;
-}
-
-void
-scm_set_smob_mfpe (long tc,
- SCM (*mark) (SCM),
- size_t (*free) (SCM),
- int (*print) (SCM, SCM, scm_print_state *),
- SCM (*equalp) (SCM, SCM))
-{
- if (mark) scm_set_smob_mark (tc, mark);
- if (free) scm_set_smob_free (tc, free);
- if (print) scm_set_smob_print (tc, print);
- if (equalp) scm_set_smob_equalp (tc, equalp);
-}
-
-#endif /* SCM_DEBUG_DEPRECATED == 0 */
-
-
/* {Initialization for i/o types, float, bignum, the type of free cells}
*/