diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 21:26:06 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 21:26:06 +0000 |
commit | 7e52301b501f7a574fca19776fb7fcbfe873d533 (patch) | |
tree | 8a47ba7faf0f39f5f0a77afb977f1108e04fba80 /interp/dumpglob.ml | |
parent | 358e5b1daef7ec1681092f8b1888b57da078a8b6 (diff) |
Small things about coqdoc + fixing lettuple.v test (part of bug #2289)
In coqdoc, made links to utf8 notations working and made
representation of locations for notations more compact
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12896 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/dumpglob.ml')
-rw-r--r-- | interp/dumpglob.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 519f902ba..702c509dc 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -212,6 +212,5 @@ let dump_notation_location posl df (((path,secpath),_),sc) = let secpath = Names.string_of_dirpath secpath in let df = cook_notation df sc in List.iter (fun (bl,el) -> - for pos=bl to el do - dump_string (Printf.sprintf "R%d %s %s %s not\n" pos path secpath df) - done) posl + dump_string(Printf.sprintf "R%d:%d %s %s %s not\n" bl el path secpath df)) + posl |