WIP

hhugo · hhugo · commit ebdeebe12b55 · 2025-05-27T23:17:40.000+02:00
diff --git a/compiler/lib/specialize_js.ml b/compiler/lib/specialize_js.ml
@@ -486,7 +486,7 @@ let f_once_after p =
       Code.map_blocks p ~f:(fun block ->
           { block with Code.body = List.map block.body ~f })
     in
-    let p = Deadcode.remove_unused_blocks { p with blocks } in
+    let p = Deadcode.remove_unused_blocks p in
     Code.invariant p;
     p)
   else p
