From 0aed71aa51e89e714de2392c2a5f44694dca77ea Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 31 Jan 2012 22:58:24 +0100 Subject: Revert "add SCM_HEAP_OBJECT_BASE" This reverts commit 47ed8656db8800f3ad20a40eb2c4e9ef3dc891e3. Conflicts: libguile/foreign.c --- libguile/struct.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index d022cce78..73b2e4ddf 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -448,7 +448,7 @@ scm_i_alloc_struct (scm_t_bits *vtable_data, int n_words) /* Register a finalizer for the newly created instance. */ GC_finalization_proc prev_finalizer; GC_PTR prev_finalizer_data; - GC_REGISTER_FINALIZER_NO_ORDER (SCM_HEAP_OBJECT_BASE (ret), + GC_REGISTER_FINALIZER_NO_ORDER (SCM2PTR (ret), struct_finalizer_trampoline, NULL, &prev_finalizer, -- cgit v1.2.3