Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / libguile / weak-vector.c

diff --git a/libguile/weak-vector.c b/libguile/weak-vector.c
index f829d36..23bc386 100644 (file)
--- a/libguile/weak-vector.c
+++ b/libguile/weak-vector.c
@@ -177,7 +177,7 @@ scm_c_weak_vector_set_x (SCM wv, size_t k, SCM x)
 
   if (SCM_HEAP_OBJECT_P (x))
     SCM_I_REGISTER_DISAPPEARING_LINK ((GC_PTR) &elts[k],
-                                      (GC_PTR) SCM_HEAP_OBJECT_BASE (x));
+                                      (GC_PTR) SCM2PTR (x));
 }