better debug in CC

This commit is contained in:
Simon Cruanes 2021-12-17 16:40:03 -05:00
parent be2d57a717
commit c03fc97f00
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -877,7 +877,7 @@ module Make(A : ARG)
Log.debugf 50 Log.debugf 50
(fun k-> (fun k->
let ppc out n = let ppc out n =
Fmt.fprintf out "{@[class@ %a@]}" (Util.pp_iter N.pp) (N.iter_class n) in Fmt.fprintf out "{@[<hv>class@ %a@]}" (Util.pp_iter N.pp) (N.iter_class n) in
k "(@[sidekick.smt-solver.classes@ (@[%a@])@])" k "(@[sidekick.smt-solver.classes@ (@[%a@])@])"
(Util.pp_iter ppc) (CC.all_classes @@ Solver_internal.cc self.si)); (Util.pp_iter ppc) (CC.all_classes @@ Solver_internal.cc self.si));