From b8b2a22f2c7d7fcdec32e2d808118021aba1fbd2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 23 Mar 2000 22:48:07 +0000
Subject: Amélioration d'un message d'erreur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@354 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/astterm.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/parsing/astterm.ml b/parsing/astterm.ml
index 087cdb711b..af24760fc9 100644
--- a/parsing/astterm.ml
+++ b/parsing/astterm.ml
@@ -222,7 +222,9 @@ let rec collapse_env n env = if n=0 then env else
 *)
 
 let check_capture s ty = function
-  | Slam _ when occur_var_ast s ty -> error "Capturing variable"
+  | Slam _ when occur_var_ast s ty ->
+      errorlabstrm "check_capture"
+	[< 'sTR ("The variable "^s^" occurs in its type") >]
   | _ -> ()
 
 let dbize k sigma =
-- 
cgit v1.2.3