summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/mallocs.c11
1 files changed, 1 insertions, 10 deletions
diff --git a/libguile/mallocs.c b/libguile/mallocs.c
index 6a68b96e7..0c7d45053 100644
--- a/libguile/mallocs.c
+++ b/libguile/mallocs.c
@@ -41,14 +41,6 @@
scm_t_bits scm_tc16_malloc;
-static size_t
-malloc_free (SCM ptr)
-{
- if (SCM_MALLOCDATA (ptr))
- free (SCM_MALLOCDATA (ptr));
- return 0;
-}
-
static int
malloc_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
@@ -71,11 +63,10 @@ scm_malloc_obj (size_t n)
-void
+void
scm_init_mallocs ()
{
scm_tc16_malloc = scm_make_smob_type ("malloc", 0);
- scm_set_smob_free (scm_tc16_malloc, malloc_free);
scm_set_smob_print (scm_tc16_malloc, malloc_print);
}