Commits

Anonymous committed bc8b4e5

sorted arrays: fuckup fixed

  • Participants
  • Parent commits c255273

Comments (0)

Files changed (1)

File src/cd_SortedArraySet.ml

               (* here: i<c1, j<c2. *)
               let v1 = it1.(i) in
               let k1 = k1 v1 in
-              let v2 = it2.(i) in
+              let v2 = it2.(j) in
               let k2 = k2 v2 in
               match (cmp k1 k2) with
               [ 0 -> (* k1 = k2 *)