summaryrefslogtreecommitdiff
path: root/libguile/weak-vector.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-24 18:22:35 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-24 18:59:35 +0200
commit47ed8656db8800f3ad20a40eb2c4e9ef3dc891e3 (patch)
treeef4afe3a80f6441aeda3bf14ae20ab1ee07824c6 /libguile/weak-vector.c
parent8c5bb72920a41d165726a1b5a610d823971f1ca8 (diff)
downloadguile-47ed8656db8800f3ad20a40eb2c4e9ef3dc891e3.tar.gz
add SCM_HEAP_OBJECT_BASE
* libguile/tags.h (SCM_HEAP_OBJECT_BASE): New macro. Given a SCM, returns a pointer to the start of its memory area on the heap. * libguile/bytevectors.c: * libguile/fluids.c: * libguile/foreign.c: * libguile/gc.h: * libguile/guardians.c: * libguile/numbers.h: * libguile/ports.c: * libguile/smob.c: * libguile/struct.c: * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-vector.c: Use it.
Diffstat (limited to 'libguile/weak-vector.c')
-rw-r--r--libguile/weak-vector.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/weak-vector.c b/libguile/weak-vector.c
index 23bc386d4..f829d3617 100644
--- 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) SCM2PTR (x));
+ (GC_PTR) SCM_HEAP_OBJECT_BASE (x));
}