summaryrefslogtreecommitdiff
path: root/libguile/gc-segment.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-segment.c')
-rw-r--r--libguile/gc-segment.c2
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;