Skip to content

Commit 7b03bcc

Browse files
committed
Dont check intermediate codepos when normalizing gaps
1 parent ca6051f commit 7b03bcc

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

src/ecMatching.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -397,8 +397,8 @@ module Position = struct
397397
(* Normalize a codegap1 to nm_codegap1 *)
398398
let normalize_cgap1 (env : env) (g : codegap1) (s : stmt) : nm_codegap1 =
399399
let nm = match g with
400-
| GapBefore cp -> normalize_cpos1 env cp s |> gap_before
401-
| GapAfter cp -> normalize_cpos1 env cp s |> gap_after
400+
| GapBefore cp -> normalize_cpos1 ~check:false env cp s |> gap_before
401+
| GapAfter cp -> normalize_cpos1 ~check:false env cp s |> gap_after
402402
in
403403
check_nm_cgap1 nm s; nm
404404

0 commit comments

Comments
 (0)