From bd4d6dca0b4de08efebe71a75120692e09095d19 Mon Sep 17 00:00:00 2001
From: Jan Midtgaard <mail@janmidtgaard.dk>
Date: Sat, 21 Dec 2024 13:48:44 +0100
Subject: [PATCH] Experiment: replace Gc.compact in 'cleanup' with
 Gc.full_major

---
 src/gc/stm_tests_spec.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gc/stm_tests_spec.ml b/src/gc/stm_tests_spec.ml
index 68c1ef8bb..322afb90c 100644
--- a/src/gc/stm_tests_spec.ml
+++ b/src/gc/stm_tests_spec.ml
@@ -281,7 +281,7 @@ let cleanup sut =
     sut.lists <- [| |];
     sut.bigarrays <- [| |];
     Gc.set init_state;
-    Gc.compact ()
+    Gc.full_major ()
   end
 
 let precond _n _s = true