CR: Simplification in compiler/lib/effects.ml

Co-authored-by: Jérôme Vouillon <[email protected]>
ocsigen · Dec 12, 2024 · c4e588d · c4e588d
1 parent 399bc41
commit c4e588d
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/compiler/lib/effects.ml b/compiler/lib/effects.ml
@@ -326,9 +326,7 @@ let mk_cps_pc_of_direct ~st pc =
   then (
     try Hashtbl.find st.cps_pc_of_direct pc
     with Not_found ->
-      let new_blocks = st.new_blocks in
       let free_pc = st.free_pc in
-      st.new_blocks <- new_blocks;
       st.free_pc <- free_pc + 1;
       Hashtbl.add st.cps_pc_of_direct pc free_pc;
       free_pc)