diff options
-rw-r--r-- | libguile/mallocs.c | 11 |
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); } |