Fixed field access for 4.00

Dammit, disambiguation!
OCamlPro · Nov 25, 2014 · fea0f50 · fea0f50
1 parent 6703823
commit fea0f50
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/indexBuild.ml b/src/indexBuild.ml
@@ -96,7 +96,8 @@ let associate_comment ?(after_only=false) comments loc nextloc =
   and lend =  loc.Location.loc_end.Lexing.pos_lnum in
   let isnext c =
     nextloc <> Location.none &&
-    nextloc.Location.loc_start.pos_cnum < c.Location.loc_end.Lexing.pos_cnum
+    nextloc.Location.loc_start.Lexing.pos_cnum <
+    c.Location.loc_end.Lexing.pos_cnum
   in
   let rec aux = function
     | [] -> None, []