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/init.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/init.c')
-rw-r--r-- | libguile/init.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/libguile/init.c b/libguile/init.c index f768cc7d9..5c96be4dc 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -162,7 +162,6 @@ restart_stack (void *base) SCM_DFRAME (scm_rootcont) = scm_last_debug_frame = 0; #endif SCM_BASE (scm_rootcont) = base; - scm_continuation_stack_ptr = SCM_MAKINUM (0); } static void @@ -187,13 +186,6 @@ start_stack (void *base) contregs->seq = 0; SCM_NEWSMOB (scm_rootcont, scm_tc16_continuation, contregs); } - /* The root continuation is further initialized by restart_stack. */ - - /* Create the look-aside stack for variables that are shared between - * captured continuations. - */ - scm_continuation_stack = scm_c_make_vector (512, SCM_UNDEFINED); - /* The continuation stack is further initialized by restart_stack. */ /* The remainder of stack initialization is factored out to another * function so that if this stack is ever exitted, it can be |