diff options
Diffstat (limited to 'libguile/gc-segment.c')
-rw-r--r-- | libguile/gc-segment.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c index 6a39de4e6..2ba135c62 100644 --- a/libguile/gc-segment.c +++ b/libguile/gc-segment.c @@ -472,6 +472,8 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro freelist->collected = LONG_MAX; } + if (len > scm_max_segment_size) + len = scm_max_segment_size; if (len < SCM_MIN_HEAP_SEG_SIZE) len = SCM_MIN_HEAP_SEG_SIZE; |