Revert "add SCM_HEAP_OBJECT_BASE"

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

diff --git a/libguile/guardians.c b/libguile/guardians.c
index 5321378..a3d0323 100644 (file)
--- a/libguile/guardians.c
+++ b/libguile/guardians.c
@@ -218,8 +218,6 @@ 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);