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

Removed some stupid code.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-15 15:19:50 +00:00
parent 4fdb0ae271
commit dd45c0dfdb
3 changed files with 15 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/init.c
View file

@ -475,18 +475,10 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_smob_prehistory ();
scm_tables_prehistory ();
#if defined (GUILE_DEBUG) && defined (GUILE_NEW_GC_SCHEME)
{
int gc_trigger = scm_i_getenv_int ("GUILE_GC_TRIGGER", 0);
int gc_trigger2 = scm_i_getenv_int ("GUILE_GC_TRIGGER2", 0);
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE", 0),
/* default: trigger */
gc_trigger >= 0 ? 1 : 0,
gc_trigger < 0 ? - gc_trigger : gc_trigger,
scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE2", 40000),
/* default: don't trigger GC */
gc_trigger2 > 0 ? 1 : 0,
gc_trigger2 < 0 ? - gc_trigger2 : gc_trigger2);
}
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE", 0),
scm_i_getenv_int ("GUILE_GC_TRIGGER", 0),
scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE2", 40000),
scm_i_getenv_int ("GUILE_GC_TRIGGER2", 0));
#else
scm_init_storage (0, 0);
#endif