diff options
| author | herbelin | 2000-06-29 11:11:38 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-29 11:11:38 +0000 |
| commit | 43af153affecc21f87043ad96259039e20ed795f (patch) | |
| tree | fb29cc739b952cfbd04d4624a4e6640e676adaf7 /pretyping/pretype_errors.ml | |
| parent | 5537ef7cbd7948981c44b4e625f75b1afbd194e9 (diff) | |
Bricoles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@526 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 74f4c57486..9f711f390e 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -8,7 +8,7 @@ open Type_errors open Rawterm let raise_pretype_error (loc,k,ctx,te) = - raise (Stdpp.Exc_located (loc, TypeError(k,ctx,te))) + Stdpp.raise_with_loc loc (TypeError(k,ctx,te)) let error_var_not_found_loc loc k s = raise_pretype_error (loc,k, Global.context() (*bidon*), VarNotFound s) |