summaryrefslogtreecommitdiff
path: root/libguile/init.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/init.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/init.c')
-rw-r--r--libguile/init.c8
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