diff options
| author | herbelin | 2004-02-12 19:35:23 +0000 |
|---|---|---|
| committer | herbelin | 2004-02-12 19:35:23 +0000 |
| commit | b847fcc99e35a09b862aa758c5e3f0b08a93202d (patch) | |
| tree | a1e88a9123be5255852cc93015fd5b22699633d6 /ide | |
| parent | dabb8781bf86fb7f85aa4c96928252c6afc8f3cc (diff) | |
Localisation des erreurs d'internalisation des notations de tactiques
dans le module de leur définition.
Error_in_file dans Util et étendu avec possibilité de noms de modules
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5328 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index ac28997d52..71bc09cc2c 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -214,7 +214,7 @@ let print_toplevel_error exc = let (loc,exc) = match exc with | Stdpp.Exc_located (loc, ie) -> (Some loc),ie - | Error_in_file (s, (fname, loc), ie) -> None, ie + | Error_in_file (s, (_,fname, loc), ie) -> None, ie | _ -> dloc,exc in match exc with |