let apply_closure env labels closure = let label = Clabels.lookup labels (M.label_at_closure closure) in let mem = M.mem_at env.frame label in M.userdef_closure mem closure