mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

(scm_i_get_new_heap_segment): Oops. We want segment

Browse source 
length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.
This commit is contained in:
Han-Wen Nienhuys 2002-08-23 00:05:58 +00:00
parent 917adc55ac
commit 4a5309c938
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc-segment.c
View file

@ -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;
{