From e88e0b2140bdd2d194a52bc09f8338b5667d0f92 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Nov 2002 18:37:54 +0000
Subject: Réforme de l'interprétation des termes : - Le parsing se fait
 maintenant via "constr_expr" au lieu de "Coqast.t" - "Coqast.t" reste pour
 l'instant pour le pretty-printing. Un deuxième   pretty-printer dans
 ppconstr.ml est basé sur "constr_expr". - Nouveau répertoire "interp" qui
 hérite de la partie interprétation qui   se trouvait avant dans "parsing"
 (constrintern.ml remplace astterm.ml;   constrextern.ml est l'équivalent de
 termast.ml pour le nouveau   printer; topconstr.ml; contient la définition de
 "constr_expr";   modintern.ml remplace astmod.ml) - Libnames.reference tend à
 remplacer Libnames.qualid

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3235 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/modops.ml | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 758bf21596..a75f2d4832 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -10,6 +10,7 @@
 
 (*i*)
 open Util
+open Pp
 open Names
 open Univ
 open Term
@@ -51,11 +52,13 @@ let error_no_module_to_end _ =
 let error_no_modtype_to_end _ =
   error "No open module type to end"
 
-let error_not_a_modtype s = 
-  error ("\""^s^"\" is not a module type")
+let error_not_a_modtype_loc loc s = 
+  user_err_loc (loc,"",str ("\""^s^"\" is not a module type"))
 
-let error_not_a_module s = 
-  error ("\""^s^"\" is not a module")
+let error_not_a_module_loc loc s = 
+  user_err_loc (loc,"",str ("\""^s^"\" is not a module"))
+
+let error_not_a_module s = error_not_a_module_loc dummy_loc s
 
 let error_not_a_constant l = 
   error ("\""^(string_of_label l)^"\" is not a constant")
-- 
cgit v1.2.3