Module `Expunge`

val to_keep : Compilation_unit.Name.Set.t ref

val negate : bool

val keep0 : Compilation_unit.Name.Set.elt -> bool

val keep : Symtable.Global.t -> bool

val expunge_map : Symtable.global_map -> Symtable.global_map

val expunge_crcs : Import_info.t array -> Import_info.t array

val main : unit -> unit

Module Expunge