Js_of_ocaml_compiler.Freevars
val iter_block_free_vars : (Code.Var.t -> unit) -> Code.block -> unit
val iter_block_bound_vars : (Code.Var.t -> unit) -> Code.block -> unit
val f :
Code.program ->
Js_of_ocaml_compiler.Code.Var.Set.t Js_of_ocaml_compiler.Code.Addr.Map.t