diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-28 07:49:25 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-28 07:49:25 +0000 |
commit | 12acbbef543e5d6de5f6c344550cb865ecddd239 (patch) | |
tree | dff95c24006fe2a5f6907a5052efbea27bab05e9 /libguile/gc.c | |
parent | 73ea78af4d2f7bec513a4569400265e89e8ca153 (diff) | |
download | guile-12acbbef543e5d6de5f6c344550cb865ecddd239.tar.gz |
* Removed commented code from gc.c.
* Removed unused identifier scm_type_obj_list.
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; |