From 4a6a4b492ff7677fd9ec5136d55bb75985245b18 Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Tue, 23 May 2006 21:59:56 +0000 Subject: [PATCH] Fixed the undocumented `scm_make_smob ()' function. * libguile/smob.c (scm_make_smob): Use `SCM_RETURN_NEWSMOB ()' instead of `scm_cell ()' when instantiating the SMOB. git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-27 --- libguile/smob.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libguile/smob.c b/libguile/smob.c index 66b7696ed..bdeae2d93 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -460,12 +460,13 @@ scm_set_smob_apply (scm_t_bits tc, SCM (*apply) (), SCM scm_make_smob (scm_t_bits tc) { - long n = SCM_TC2SMOBNUM (tc); + scm_t_bits n = SCM_TC2SMOBNUM (tc); size_t size = scm_smobs[n].size; scm_t_bits data = (size > 0 ? (scm_t_bits) scm_gc_malloc (size, SCM_SMOBNAME (n)) : 0); - return scm_cell (tc, data); + + SCM_RETURN_NEWSMOB (tc, data); }