(scm_i_get_new_heap_segment): Oops. We want segment

length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 3420fca..c0236c4 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-23  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * gc-segment.c (scm_i_get_new_heap_segment): Oops. We want segment
+       length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.  
+
 2002-08-22  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * gc.h, gc.c: make scm_cells_allocated unsigned again. Thanks to

diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c
index e459291..53c02cd 100644 (file)
--- 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;
 
   {