let pop c = match !stack with | top::tl when top == c -> stack := tl; (List.rev c.c_warning, List.rev c.c_depends) | _ -> Wp_parameters.fatal "Datalib.Collector: inconsistent stack"