[Guile-commits] 29/423: Bugfix to mark-sweep

[Andy Wingo]

wingo pushed a commit to branch wip-whippet
in repository guile.

commit a693c4ea8a60edd7a35b13c2fe28b3f42bd22405
Author: Andy Wingo <wi...@igalia.com>
AuthorDate: Sun Mar 13 21:45:20 2022 +0100

    Bugfix to mark-sweep
    
    Before this, the last sweep would cause premature gc
---
 mark-sweep.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mark-sweep.h b/mark-sweep.h
index 2c90f48eb..b5219c644 100644
--- a/mark-sweep.h
+++ b/mark-sweep.h
@@ -306,7 +306,7 @@ static int sweep(struct context *cx) {
   }
 
   cx->sweep = sweep;
-  return sweep < limit;
+  return to_reclaim < 128;
 }
 
 static void* allocate_large(struct context *cx, enum alloc_kind kind,