diff options
Diffstat (limited to 'libguile/guardians.c')
-rw-r--r-- | libguile/guardians.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/guardians.c b/libguile/guardians.c index 42acf1e20..dfc533233 100644 --- a/libguile/guardians.c +++ b/libguile/guardians.c @@ -218,6 +218,8 @@ scm_i_guard (SCM guardian, SCM obj) SCM_EOL); finalizer_data = scm_cons (SCM_BOOL_F, guardians_for_obj); + /* FIXME: should be SCM_HEAP_OBJECT_BASE, but will the finalizer + strip the tag bits of pairs or structs? */ GC_REGISTER_FINALIZER_NO_ORDER (SCM_UNPACK_POINTER (obj), finalize_guarded, SCM_UNPACK_POINTER (finalizer_data), &prev_finalizer, &prev_data); |