diff options
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index d2e13d88e..c8aec31a9 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -796,28 +796,6 @@ scm_igc (const char *what) ++scm_gc_heap_lock; - /* unprotect any struct types with no instances */ -#if 0 - { - SCM type_list; - SCM * pos; - - pos = &scm_type_obj_list; - type_list = scm_type_obj_list; - while (type_list != SCM_EOL) - if (SCM_VELTS (SCM_CAR (type_list))[scm_struct_i_refcnt]) - { - pos = SCM_CDRLOC (type_list); - type_list = SCM_CDR (type_list); - } - else - { - *pos = SCM_CDR (type_list); - type_list = SCM_CDR (type_list); - } - } -#endif - /* flush dead entries from the continuation stack */ { int x; |