fix naming

Signed-off-by: Hugo Heuzard <[email protected]>

src/dune_engine/alias.ml

@@ -160,7 +160,7 @@ let make_standard name =
   Table.add_exn standard_aliases name ();
   make name
 
-let register_if_needed name =
+let register_as_standard name =
   if Table.mem standard_aliases name then
     ()
   else

src/dune_engine/alias.mli

@@ -40,7 +40,7 @@ val compare : t -> t -> Ordering.t
 
 val make : Name.t -> dir:Path.Build.t -> t
 
-val register_if_needed : Name.t -> unit
+val register_as_standard : Name.t -> unit
 
 (** The following always holds: [make (name t) ~dir:(dir t) = t] *)
 val name : t -> Name.t

src/dune_rules/js_of_ocaml.ml

@@ -111,7 +111,7 @@ module Env = struct
          field_o "compilation_mode" Compilation_mode.decode
        and+ runtest_alias = field_o "runtest_alias" Alias.Name.decode
        and+ flags = field "flags" Flags.decode ~default:Flags.standard in
-       Option.iter ~f:Alias.register_if_needed runtest_alias;
+       Option.iter ~f:Alias.register_as_standard runtest_alias;
        { compilation_mode; runtest_alias; flags }
 
   let equal { compilation_mode; runtest_alias; flags } t =