diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-17 15:57:03 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-17 16:06:41 +0200 |
commit | 4e0e3022ca9eefefb57632152725b4a4c249ce38 (patch) | |
tree | 9b631ac64387ed70f39ac85781d6b9c98e80c60d | |
parent | 1894f56849f01dbaf7c1fafed5c9b4f26ff6d2e5 (diff) |
Fixing #3292 (locations of notations shifted by 1 in glob files in trunk).
Thanks to David M. Cooke on coq-bugs for pointing out one part
of the problem.
-rw-r--r-- | interp/topconstr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index b043f3d42..97f9429c1 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -262,8 +262,8 @@ let locs_of_notation loc locs ntn = let (bl, el) = Loc.unloc loc in let locs = List.map Loc.unloc locs in 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 + | [] -> if Int.equal pos el then [] else [(pos,el)] + | (ba,ea)::l -> if Int.equal pos ba then aux ea l else (pos,ba)::aux ea l in aux bl (List.sort (fun l1 l2 -> fst l1 - fst l2) locs) let ntn_loc loc (args,argslist,binderslist) = |