summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-28 07:49:25 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-28 07:49:25 +0000
commit12acbbef543e5d6de5f6c344550cb865ecddd239 (patch)
treedff95c24006fe2a5f6907a5052efbea27bab05e9 /libguile/gc.c
parent73ea78af4d2f7bec513a4569400265e89e8ca153 (diff)
downloadguile-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.c22
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;