diff options
| -rw-r--r-- | pretyping/pretype_errors.ml | 2 | ||||
| -rw-r--r-- | pretyping/typing.ml | 4 |
2 files changed, 3 insertions, 3 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) diff --git a/pretyping/typing.ml b/pretyping/typing.ml index 0fbe3c7587..985b1d3998 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -32,7 +32,7 @@ let rec execute mf env sigma cstr = { uj_val = cstr; uj_type = jty } | IsRel n -> - relative env n + relative env sigma n | IsVar id -> (try @@ -111,7 +111,7 @@ let rec execute mf env sigma cstr = let tj = execute mf env sigma t in cast_rel env sigma cj tj - | _ -> error_cant_execute CCI env cstr + | IsXtra _ -> anomaly "Typing: found an Extra" and execute_fix mf env sigma lar lfi vdef = let larj = execute_array mf env sigma lar in |