meh

OCamlPro · Jan 30, 2025 · afe2007 · afe2007
1 parent 7520be7
commit afe2007
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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