Introduced a new layer of "panels" that produce panes

topinf.mli

@@ -6,7 +6,6 @@ val setvalue : string -> Obj.t -> unit
 (* End of: accessors for table of toplevel value bindings that must be first in the module signature *)
 
 val print_toplevel_value_bindings : Format.formatter -> unit
-
 val toplevel_env : Env.t ref
 
 type evalenv = Format.formatter -> string -> unit
@@ -20,12 +19,9 @@ type directive_fun =
   | Directive_ident of (Longident.t -> unit)
   | Directive_bool of (bool -> unit)
 
-type directive_info = { section : string; doc : string }
+type directive_info = {section: string; doc: string}
 
 val add_directive : Misc.filepath -> directive_fun -> directive_info -> unit
-
 val directive_info_table : (string, directive_info) Hashtbl.t
-
 val ppf : Format.formatter ref
-
 val eval : evalenv option ref