Fix accidental regression in 4.14.1 Clflags

akabe · Jan 20, 2023 · e1afa58 · e1afa58
1 parent 5f19087
commit e1afa58
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/repl/caml_args.cppo.ml b/src/repl/caml_args.cppo.ml
@@ -210,8 +210,10 @@ module Options = Main_args.Make_bytetop_options (struct
     let _dno_locations = clear Clflags.locations
 #endif
 
-#if OCAML_VERSION >= (4,14,0)
+#if OCAML_VERSION = (4,14,0)
 let _force_tmc = set Clflags.force_tmc
+#endif
+#if OCAML_VERSION >= (4,14,0)
 let _dshape = set Clflags.dump_shape
 let _eval (_ : string) = ()
 #endif