mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

* init.c (scm_start_stack, scm_restart_stack): Renamed to

Browse source 
start_stack and restart_stack.  (These have static scope.)
This commit is contained in:
Mikael Djurfeldt 1998-06-07 02:10:41 +00:00
parent 8b0db23e94
commit a4156763c3
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/init.c
View file

@ -127,11 +127,11 @@
#endif #endif
static void scm_start_stack SCM_P ((void *base)); static void start_stack SCM_P ((void *base));
static void scm_restart_stack SCM_P ((void * base)); static void restart_stack SCM_P ((void * base));
static void static void
scm_start_stack (base) start_stack (base)
void * base; void * base;
{ {
SCM root; SCM root;
@ -154,24 +154,24 @@ scm_start_stack (base)
"continuation")); "continuation"));
SCM_SETCAR (scm_rootcont, scm_tc7_contin); SCM_SETCAR (scm_rootcont, scm_tc7_contin);
SCM_SEQ (scm_rootcont) = 0; SCM_SEQ (scm_rootcont) = 0;
/* The root continuation if further initialized by scm_restart_stack. */ /* The root continuation if further initialized by restart_stack. */
/* Create the look-aside stack for variables that are shared between /* Create the look-aside stack for variables that are shared between
* captured continuations. * captured continuations.
*/ */
scm_continuation_stack = scm_make_vector (SCM_MAKINUM (512), scm_continuation_stack = scm_make_vector (SCM_MAKINUM (512),
SCM_UNDEFINED, SCM_UNDEFINED); SCM_UNDEFINED, SCM_UNDEFINED);
/* The continuation stack is further initialized by scm_restart_stack. */ /* The continuation stack is further initialized by restart_stack. */
/* The remainder of stack initialization is factored out to another /* The remainder of stack initialization is factored out to another
* function so that if this stack is ever exitted, it can be * function so that if this stack is ever exitted, it can be
* re-entered using scm_restart_stack. */ * re-entered using restart_stack. */
scm_restart_stack (base); restart_stack (base);
} }
static void static void
scm_restart_stack (base) restart_stack (base)
void * base; void * base;
{ {
scm_dynwinds = SCM_EOL; scm_dynwinds = SCM_EOL;
@ -374,7 +374,7 @@ scm_boot_guile_1 (base, closure)
if (initialized) if (initialized)
{ {
scm_restart_stack (base); restart_stack (base);
} }
else else
{ {
@ -386,7 +386,7 @@ scm_boot_guile_1 (base, closure)
#ifdef USE_THREADS #ifdef USE_THREADS
scm_init_threads (base); scm_init_threads (base);
#endif #endif
scm_start_stack (base); start_stack (base);
scm_init_gsubr (); scm_init_gsubr ();
scm_init_feature (); scm_init_feature ();
scm_init_alist (); scm_init_alist ();