diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-23 22:48:07 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-23 22:48:07 +0000 |
| commit | b8b2a22f2c7d7fcdec32e2d808118021aba1fbd2 (patch) | |
| tree | d47e11ef94d07118a334bb78c035c468ef3ca114 | |
| parent | b1dab9e06d9a964b1dd0d09bca797cb4a4e4b9a1 (diff) | |
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
| -rw-r--r-- | parsing/astterm.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 087cdb711..af24760fc 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 = |