output to draw_pp's ppf

2021-08-10 02:37:00 -05:00
parent 58975feee5
commit 73d9260b1f
4 changed files with 34 additions and 33 deletions
--- a/topinf.ml
+++ b/topinf.ml
@ -42,6 +42,8 @@ let phrase_buffer = Buffer.create 1024
 (* The table of toplevel value bindings and its accessors *)
 let toplevel_value_bindings : Obj.t String.Map.t ref = ref String.Map.empty

+let ppf = ref Format.std_formatter
+
 let getvalue name =
  try String.Map.find name !toplevel_value_bindings
  with Not_found -> fatal_error (name ^ " unbound at toplevel")