summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-05-23 21:59:56 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-05 09:34:17 +0200
commit4a6a4b492ff7677fd9ec5136d55bb75985245b18 (patch)
treea2d83893b96abe4c0d214216e039bd240c2ec9fe
parente9d635e5d82e882ed39de65f6312aae1ade43d1f (diff)
downloadguile-4a6a4b492ff7677fd9ec5136d55bb75985245b18.tar.gz
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
-rw-r--r--libguile/smob.c5
1 files 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);
}