Allow `mrb_objspace_each_objects()` to break iteration; ref #3359

1 files changed, 2 insertions, 1 deletions

diff --git a/src/gc.c b/src/gc.c
index 81f47eed7..833d35c71 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -1498,7 +1498,8 @@ gc_each_objects(mrb_state *mrb, mrb_gc *gc, mrb_each_object_callback *callback,
     p = objects(page);
     pend = p + MRB_HEAP_PAGE_SIZE;
     for (;p < pend; p++) {
-      (*callback)(mrb, &p->as.basic, data);
+      if ((*callback)(mrb, &p->as.basic, data) == MRB_EACH_OBJ_BREAK)
+        break;
     }
 
     page = page->next;