From afe20078d1108c9b3f4c1ca9a51333b2513f505d Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Thu, 30 Jan 2025 16:28:16 +0100
Subject: [PATCH] meh

---
 test/fuzz/env.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/fuzz/env.ml b/test/fuzz/env.ml
index b31099ca..e800113c 100644
--- a/test/fuzz/env.ml
+++ b/test/fuzz/env.ml
@@ -57,7 +57,8 @@ let empty conf =
 
 let reset_locals env = env.locals <- []
 
-let remove_block env = env.blocks <- List.tl env.blocks
+let remove_block env =
+  match env.blocks with [] -> assert false | _hd :: tl -> env.blocks <- tl
 
 let get_blocks env = env.blocks