let close (out,fmt) =
    try
      current := None ;
      Format.pp_print_flush fmt () ;
      Pervasives.close_out out ;
    with _ -> ()