mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* init.c, init.h (scm_initialized_p): Renamed from `initialized'

Browse source 
and made global.
This commit is contained in:
Mikael Djurfeldt 2000-06-19 00:41:33 +00:00
parent 3785f31772
commit bf1b9494f7
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/init.c
View file

@ -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_boot_guile_1_live = 0;
int scm_initialized_p = 0;
static void static void
scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure) scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
{ {
static int initialized = 0;
/* static int live = 0; */ /* static int live = 0; */
setjmp_type setjmp_val; 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_ints_disabled = 1;
scm_block_gc = 1; scm_block_gc = 1;
if (initialized) if (scm_initialized_p)
{ {
restart_stack (base); 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_dynamic_linking ();
scm_init_lang (); scm_init_lang ();
scm_init_script (); scm_init_script ();
initialized = 1; scm_initialized_p = 1;
} }
scm_block_gc = 0; /* permit the gc to run */ scm_block_gc = 0; /* permit the gc to run */

2
libguile/init.h
View file

@ -47,6 +47,8 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern int scm_initialized_p;
extern void scm_boot_guile (int argc, char **argv, extern void scm_boot_guile (int argc, char **argv,
void (*main_func) (void *closure, void (*main_func) (void *closure,
int argc, int argc,