refactor: a debug msg

This commit is contained in:
Simon Cruanes 2019-02-01 21:26:32 -06:00
parent 91389d2b5e
commit d95047b65a

View file

@ -589,6 +589,8 @@ let pop_levels (self:t) n : unit =
Vec.iter (N.set_field N.field_is_pending false) self.pending;
Vec.clear self.pending;
Vec.clear self.combine;
Log.debugf 15
(fun k->k "(@[cc.pop-levels %d@ :n-lvls %d@])" n (Backtrack_stack.n_levels self.undo));
Backtrack_stack.pop_levels self.undo n ~f:(fun f -> f());
()