diff options
author | Gary Houston <ghouston@arglist.com> | 2001-09-15 21:56:52 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2001-09-15 21:56:52 +0000 |
commit | 6c1b7628703d7fac1751357153fd14e095535c2c (patch) | |
tree | 94afb9e29a5d6f8fd5ed054122e95408c79647d7 /libguile/root.c | |
parent | 455c0ac82b288f254b3da7a93ae275594e5def87 (diff) | |
download | guile-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/root.c')
-rw-r--r-- | libguile/root.c | 4 |
1 files changed, 0 insertions, 4 deletions
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 |