~ chicken-core (chicken-5) ab40ca14689d1cd4bdf5221645f7ad6439119ee4

commit ab40ca14689d1cd4bdf5221645f7ad6439119ee4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 3 05:44:30 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 3 05:44:30 2010 -0400

    force major gc when dump heap state or filtering heap

diff --git a/runtime.c b/runtime.c
index 61f4db75..aed3da7f 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8842,6 +8842,7 @@ C_dump_heap_state(C_word c, C_word closure, C_word k)
 {
   /* make sure heap is compacted */
   C_save(k);
+  C_fromspace_top = C_fromspace_limit; /* force major GC */
   C_reclaim(dump_heap_state_2, NULL);
 }
 
@@ -9063,5 +9064,6 @@ C_filter_heap_objects(C_word c, C_word closure, C_word k, C_word func, C_word ve
   C_save(vector);
   C_save(userarg);
   C_save(func);
+  C_fromspace_top = C_fromspace_limit; /* force major GC */
   C_reclaim(filter_heap_objects_2, NULL);
 }