fixup! Rewrite inline pass

Author: hhugo

compiler/lib/inline.ml

@@ -441,7 +441,7 @@ let remove_dead_closures_from_block ~live_vars p pc block =
     match i with
     | Let (f, Closure _) ->
         let f = Var.idx f in
-        f <= Array.length live_vars && live_vars.(f) = 0
+        f < Array.length live_vars && live_vars.(f) = 0
     | _ -> false
   in
   if List.exists ~f:is_dead_closure block.body