summaryrefslogtreecommitdiff
path: root/libguile/gc-segment.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-23 00:05:58 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-23 00:05:58 +0000
commit4a5309c938fac5c5c65db0a8bacd5f7e20d918e5 (patch)
tree417dfe5e2f0dc2945d2c214d72755e73cfdbe56b /libguile/gc-segment.c
parent917adc55acec19ba5846179f3824d20f89acb456 (diff)
downloadguile-4a5309c938fac5c5c65db0a8bacd5f7e20d918e5.tar.gz
(scm_i_get_new_heap_segment): Oops. We want segment
length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.
Diffstat (limited to 'libguile/gc-segment.c')
-rw-r--r--libguile/gc-segment.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c
index e459291d3..53c02cd3a 100644
--- a/libguile/gc-segment.c
+++ b/libguile/gc-segment.c
@@ -512,7 +512,7 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro
freelist->collected = LONG_MAX;
}
- if (len > SCM_MIN_HEAP_SEG_SIZE)
+ if (len < SCM_MIN_HEAP_SEG_SIZE)
len = SCM_MIN_HEAP_SEG_SIZE;
{