From 760f63810ee3a421002e54ba600c3b3ce77dc68e Mon Sep 17 00:00:00 2001
From: Jeremy Yallop <yallop@gmail.com>
Date: Fri, 6 Dec 2019 20:13:35 +0000
Subject: [PATCH] Tests: prevent flambda eliminating closures.

---
 tests/test-funptrs/test_funptrs.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test-funptrs/test_funptrs.ml b/tests/test-funptrs/test_funptrs.ml
index aed7b632..f21355be 100644
--- a/tests/test-funptrs/test_funptrs.ml
+++ b/tests/test-funptrs/test_funptrs.ml
@@ -34,7 +34,7 @@ struct
 
   let make_f () : (int -> int) * ([`Live|`Released] -> unit) =
     let closure_status = ref `Live in
-    let f = (+) 1 in
+    let f = !(ref (+)) 1 in
     Gc.finalise (fun _ -> closure_status := `Released) f;
     f, (fun status -> 
       Gc.full_major ();