From 6c1b7628703d7fac1751357153fd14e095535c2c Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sat, 15 Sep 2001 21:56:52 +0000 Subject: * 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. --- libguile/root.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'libguile/root.c') diff --git a/libguile/root.c b/libguile/root.c index 26a914948..e55c393a1 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -73,8 +73,6 @@ root_mark (SCM root) scm_gc_mark (s->rootcont); scm_gc_mark (s->dynwinds); - scm_gc_mark (s->continuation_stack); - scm_gc_mark (s->continuation_stack_ptr); scm_gc_mark (s->progargs); scm_gc_mark (s->exitval); scm_gc_mark (s->cur_inp); @@ -122,8 +120,6 @@ scm_make_root (SCM parent) /* Initialize everything right now, in case a GC happens early. */ root_state->rootcont = root_state->dynwinds - = root_state->continuation_stack - = root_state->continuation_stack_ptr = root_state->progargs = root_state->exitval = root_state->cur_inp -- cgit v1.2.3