diff options
Diffstat (limited to 'libguile/gc-segment.c')
-rw-r--r-- | libguile/gc-segment.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c index ec0c2cf80..1596561b0 100644 --- a/libguile/gc-segment.c +++ b/libguile/gc-segment.c @@ -520,12 +520,15 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro return -1; } - - void -scm_i_make_initial_segment (size_t init_heap_size, scm_t_cell_type_statistics *freelist) +scm_i_make_initial_segment (int init_heap_size, scm_t_cell_type_statistics *freelist) { scm_t_heap_segment * seg = scm_i_make_empty_heap_segment (freelist); + + if (init_heap_size < 1) + { + init_heap_size = SCM_DEFAULT_INIT_HEAP_SIZE_1; + } if (scm_i_initialize_heap_segment_data (seg, init_heap_size)) { |