%op: Don't pun at local let bindings, keep collecting

lukstafi · lukstafi · commit a2d201e077ed · 2025-08-04T18:44:21.000+02:00
diff --git a/lib/ppx_op.ml b/lib/ppx_op.ml
@@ -327,8 +327,7 @@ let rec translate ~num_configs ~is_toplevel ~has_config ?label expr =
                (vbs, { binding with pvb_expr }))
       in
       let vbs2, body = loop ?label body in
-      let all_bindings = (Map.data @@ reduce_vbss vbss1) @ bindings @ Map.data vbs2 in
-      (no_vbs, { expr with pexp_desc = Pexp_let (recflag, all_bindings, body) })
+      (reduce_vbss (vbss1 @ [ vbs2 ]), { expr with pexp_desc = Pexp_let (recflag, bindings, body) })
   | { pexp_desc = Pexp_open (decl, body); _ } ->
       let vbs, body = loop ?label body in
       (vbs, { expr with pexp_desc = Pexp_open (decl, body) })
