pyrox.dev
1diff --git a/src/context/typecore.ml b/src/context/typecore.ml
2index dc38a5264..0c3ebde9f 100644
3--- a/src/context/typecore.ml
4+++ b/src/context/typecore.ml
5@@ -294,7 +294,7 @@ let add_local ctx k n t p =
6 begin try
7 let v' = PMap.find n ctx.locals in
8 (* ignore std lib *)
9- if not (List.exists (ExtLib.String.starts_with p.pfile) ctx.com.std_path) then begin
10+ if not (List.exists (ExtLib.String.starts_with ~prefix:p.pfile) ctx.com.std_path) then begin
11 warning ctx WVarShadow "This variable shadows a previously declared variable" p;
12 warning ~depth:1 ctx WVarShadow (compl_msg "Previous variable was here") v'.v_pos
13 end
14diff --git a/src/optimization/dce.ml b/src/optimization/dce.ml
15index 4e7b1fc98..90d8fc5d6 100644
16--- a/src/optimization/dce.ml
17+++ b/src/optimization/dce.ml
18@@ -76,7 +76,7 @@ let overrides_extern_field cf c =
19 loop c cf
20
21 let is_std_file dce file =
22- List.exists (ExtString.String.starts_with file) dce.std_dirs
23+ List.exists (ExtString.String.starts_with ~prefix:file) dce.std_dirs
24
25 let keep_metas = [Meta.Keep;Meta.Expose]
26