mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

* Initialize symbols using SCM_(GLOBAL_)?SYMBOL instead of scm_sysintern...

Browse source 
* Use scm_str2symbol instead of scm_sysintern0.
* Garbage collection initialization code now within gc.c only.
This commit is contained in:
Dirk Herrmann 2000-12-11 14:48:23 +00:00
parent 24737ba02a
commit 85db4a2c8e
11 changed files with 102 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/init.c
View file

@ -368,20 +368,6 @@ scm_load_startup_files ()
}
}
/* Get an integer from an environment variable. */
static int
scm_i_getenv_int (const char *var, int def)
{
char *end, *val = getenv (var);
long res;
if (!val)
return def;
res = strtol (val, &end, 10);
if (end == val)
return def;
return res;
}
/* The main init code. */
@ -482,11 +468,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
#ifdef GUILE_DEBUG_MALLOC
scm_debug_malloc_prehistory ();
#endif
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_1", 0),
scm_i_getenv_int ("GUILE_MIN_YIELD_1", 0),
scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_2", 0),
scm_i_getenv_int ("GUILE_MIN_YIELD_2", 0),
scm_i_getenv_int ("GUILE_MAX_SEGMENT_SIZE", 0));
scm_init_storage ();
scm_struct_prehistory (); /* Must come after scm_init_storage */
scm_weaks_prehistory (); /* Must come after scm_init_storage */
scm_init_subr_table ();
@ -498,6 +480,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
#endif
start_stack (base);
scm_init_gsubr ();
scm_init_procprop ();
scm_init_environments ();
scm_init_feature ();
scm_init_alist ();
@ -542,7 +525,6 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_init_regex_posix ();
#endif
scm_init_procs ();
scm_init_procprop ();
scm_init_scmsigs ();
#ifdef HAVE_NETWORKING
scm_init_net_db ();