Remove unused forward declaration

ocaml · Dec 11, 2024 · 13407ca · 13407ca
1 parent 77a69af
commit 13407ca
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 10 deletions.
diff --git a/src/ocaml/typing/btype.ml b/src/ocaml/typing/btype.ml
@@ -93,12 +93,6 @@ module TypePairs = struct
         f (type_expr t1, type_expr t2))
 end
 
-(**** Forward declarations ****)
-
-let print_raw =
-  ref (fun _ -> assert false : Format_doc.formatter -> type_expr -> unit)
-
-
 (**** Type level management ****)
 
 let generic_level = Ident.highest_scope

diff --git a/src/ocaml/typing/btype.mli b/src/ocaml/typing/btype.mli
@@ -305,9 +305,6 @@ val method_type : label -> class_signature -> type_expr
    @raises [Assert_failure] if the class has no such method. *)
 val instance_variable_type : label -> class_signature -> type_expr
 
-(**** Forward declarations ****)
-val print_raw: (Format_doc.formatter -> type_expr -> unit) ref
-
 (**** Type information getter ****)
 
 val cstr_type_path : constructor_description -> Path.t
diff --git a/src/ocaml/typing/printtyp.ml b/src/ocaml/typing/printtyp.ml
@@ -76,5 +76,4 @@ let printed_signature = Fmt.compat1 Doc.printed_signature
 
 let () = Env.print_longident := Doc.longident
 let () = Env.print_path := Doc.path
-let () = Btype.print_raw := Doc.raw_type_expr
 let () = Env.shorten_module_path := shorten_module_path