diff --git a/lib/compile.ml b/lib/compile.ml
index 9c022e1f..efbb79dc 100644
--- a/lib/compile.ml
+++ b/lib/compile.ml
@@ -90,7 +90,6 @@ type re =
   }
 
 let pp_re ch re = Automata.pp ch re.initial
-let print_re = pp_re
 let group_count re = re.group_count
 let group_names re = re.group_names
 
diff --git a/lib/compile.mli b/lib/compile.mli
index c6f20a1d..2b28c4fe 100644
--- a/lib/compile.mli
+++ b/lib/compile.mli
@@ -17,7 +17,4 @@ val match_str
 val compile : Ast.t -> re
 val group_count : re -> int
 val group_names : re -> (string * int) list
-
-(* CR-someday rgrinberg: deprecate one of these *)
-val print_re : re Fmt.t
 val pp_re : re Fmt.t
diff --git a/lib/core.ml b/lib/core.ml
index cafd1831..1bed9c26 100644
--- a/lib/core.ml
+++ b/lib/core.ml
@@ -208,7 +208,7 @@ include struct
 
   let compile = compile
   let pp_re = pp_re
-  let print_re = print_re
+  let print_re = pp_re
   let group_names = group_names
   let group_count = group_count
 end