summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-19 00:41:33 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-19 00:41:33 +0000
commitbf1b9494f76c4a81122e878f38497c9cc9c338f6 (patch)
tree3557cc58e8a720bb9c85cbc9e21d182681a45f87 /libguile/init.c
parent3785f31772a7f7763aeebe14b6ef4e9a8068e3fc (diff)
downloadguile-bf1b9494f76c4a81122e878f38497c9cc9c338f6.tar.gz
* init.c, init.h (scm_initialized_p): Renamed from `initialized'
and made global.
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/init.c b/libguile/init.c
index c7d547d11..b7bb1644d 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -451,10 +451,11 @@ scm_boot_guile (int argc, char ** argv, void (*main_func) (), void *closure)
int scm_boot_guile_1_live = 0;
+int scm_initialized_p = 0;
+
static void
scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
{
- static int initialized = 0;
/* static int live = 0; */
setjmp_type setjmp_val;
@@ -467,7 +468,7 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_ints_disabled = 1;
scm_block_gc = 1;
- if (initialized)
+ if (scm_initialized_p)
{
restart_stack (base);
}
@@ -582,7 +583,7 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_init_dynamic_linking ();
scm_init_lang ();
scm_init_script ();
- initialized = 1;
+ scm_initialized_p = 1;
}
scm_block_gc = 0; /* permit the gc to run */