let finish ?how () =
  match !internal_display with
  | None -> ()
  | Some d -> Display.finish ?how d