From b847fcc99e35a09b862aa758c5e3f0b08a93202d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 12 Feb 2004 19:35:23 +0000
Subject: 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
---
 ide/coq.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ide')

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
-- 
cgit v1.2.3