diff options
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 43c79bd49..832af5331 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -264,7 +264,7 @@ let locs_of_notation loc locs ntn = let rec aux pos = function | [] -> if Int.equal pos el then [] else [(pos,el-1)] | (ba,ea)::l ->if Int.equal pos ba then aux ea l else (pos,ba-1)::aux ea l - in aux bl (Sort.list (fun l1 l2 -> fst l1 < fst l2) locs) + in aux bl (List.sort (fun l1 l2 -> fst l1 - fst l2) locs) let ntn_loc loc (args,argslist,binderslist) = locs_of_notation loc |