From: Ludovic Courtes <ludovic.courtes@laas.fr>
Date: Tue, 23 May 2006 21:59:56 +0000 (+0000)
Subject: Fixed the undocumented `scm_make_smob ()' function.
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/4a6a4b492ff7677fd9ec5136d55bb75985245b18

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
---

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);
 }