diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-17 08:09:03 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-17 08:09:03 +0000 |
| commit | 08f77a4459eaa898f19ddd778dce0aab60637579 (patch) | |
| tree | 98e419fc4b99a7268c6220a25eff865d02dc54f8 /libguile/init.c | |
| parent | 176067df1adfe313e1105cc1508ff8603e25c9e6 (diff) | |
| download | guile-08f77a4459eaa898f19ddd778dce0aab60637579.tar.gz | |
* init.c (scm_boot_guile_1): Introduced new variable
GUILE_MAX_SEGMENT_SIZE; New environment variable names:
GUILE_INIT_SEGMENT_SIZE_1, GUILE_GC_TRIGGER_1,
GUILE_INIT_SEGMENT_SIZE_2, GUILE_GC_TRIGGER_2
Diffstat (limited to 'libguile/init.c')
| -rw-r--r-- | libguile/init.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/init.c b/libguile/init.c index 9fb8c6313..eb5936783 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -475,10 +475,11 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure) scm_smob_prehistory (); scm_tables_prehistory (); #if defined (GUILE_NEW_GC_SCHEME) - 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)); + scm_init_storage (scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_1", 0), + scm_i_getenv_int ("GUILE_GC_TRIGGER_1", 0), + scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_2", 0), + scm_i_getenv_int ("GUILE_GC_TRIGGER_2", 0), + scm_i_getenv_int ("GUILE_MAX_SEGMENT_SIZE", 0)); #else scm_init_storage (0, 0); #endif |