Merge branch 'bdw-gc-static-alloc'

[bpt/guile.git] / libguile / vectors.c

diff --git a/libguile/vectors.c b/libguile/vectors.c
index 4198c54..b1b5890 100644 (file)
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -283,7 +283,7 @@ scm_c_vector_set_x (SCM v, size_t k, SCM obj)
        {
          /* Make it a weak pointer.  */
          GC_PTR link = (GC_PTR) & ((SCM_I_VECTOR_WELTS (v))[k]);
-         GC_GENERAL_REGISTER_DISAPPEARING_LINK (link, obj);
+         SCM_I_REGISTER_DISAPPEARING_LINK (link, obj);
        }
     }
   else if (SCM_I_ARRAYP (v) && SCM_I_ARRAY_NDIM (v) == 1)
@@ -301,7 +301,7 @@ scm_c_vector_set_x (SCM v, size_t k, SCM obj)
            {
              /* Make it a weak pointer.  */
              GC_PTR link = (GC_PTR) & ((SCM_I_VECTOR_WELTS (vv))[k]);
-             GC_GENERAL_REGISTER_DISAPPEARING_LINK (link, obj);
+             SCM_I_REGISTER_DISAPPEARING_LINK (link, obj);
            }
        }
       else