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