diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-04 23:26:36 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-04 23:26:36 +0000 |
| commit | 5ece01c8d71e2fdf7a87de71c342445599e137a0 (patch) | |
| tree | f13496a49ac9c94658d84031307b0c2022f26419 /toplevel/cerrors.ml | |
| parent | abb4e7b0c1e8c0a5cc68052446333981379020d4 (diff) | |
Removed Compat.Exc_located outside of compat.ml4, as a consequence of
previous commit.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16023 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/cerrors.ml')
| -rw-r--r-- | toplevel/cerrors.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index cc455dfeb..3739b0e4d 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -45,11 +45,6 @@ let explain_exn_default = function hov 0 ((if Loc.is_ghost loc then (mt ()) else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) ++ Errors.print_no_anomaly exc) - | Compat.Exc_located (loc, exc) -> - let loc = Compat.to_coqloc loc in - hov 0 ((if Loc.is_ghost loc then (mt ()) - else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) - ++ Errors.print_no_anomaly exc) | EvaluatedError (msg,None) -> msg | EvaluatedError (msg,Some reraise) -> msg ++ Errors.print_no_anomaly reraise (* Otherwise, not handled here *) @@ -129,9 +124,6 @@ let rec process_vernac_interp_error = function Some (process_vernac_interp_error exc)) | Loc.Exc_located (loc,exc) -> Loc.Exc_located (loc,process_vernac_interp_error exc) - | Compat.Exc_located (loc, exc) -> - let loc = Compat.to_coqloc loc in - Loc.Exc_located (loc, process_vernac_interp_error exc) | exc -> exc |