summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2001-09-15 21:56:52 +0000
committerGary Houston <ghouston@arglist.com>2001-09-15 21:56:52 +0000
commit6c1b7628703d7fac1751357153fd14e095535c2c (patch)
tree94afb9e29a5d6f8fd5ed054122e95408c79647d7 /libguile/gc.c
parent455c0ac82b288f254b3da7a93ae275594e5def87 (diff)
downloadguile-6c1b7628703d7fac1751357153fd14e095535c2c.tar.gz
* root.h (scm_root_state): removed the continuation_stack and
continuation_stack_ptr members, which have no apparent purpose. (scm_continuation_stack, scm_continuation_stack_ptr): #defines removed. * root.c (root_mark), init.c (restart_stack, start_stack), gc (scm_igc): remove all references to contination_stack and continuation_stack_ptr, avoiding allocation of a vector and useless processing during gc.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c15
1 files changed, 0 insertions, 15 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 5629e9605..f10e33350 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -1074,21 +1074,6 @@ scm_igc (const char *what)
++scm_gc_heap_lock;
- /* flush dead entries from the continuation stack */
- {
- long x;
- long bound;
- SCM * elts;
- elts = SCM_VELTS (scm_continuation_stack);
- bound = SCM_VECTOR_LENGTH (scm_continuation_stack);
- x = SCM_INUM (scm_continuation_stack_ptr);
- while (x < bound)
- {
- elts[x] = SCM_BOOL_F;
- ++x;
- }
- }
-
scm_c_hook_run (&scm_before_mark_c_hook, 0);
clear_mark_space ();