diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-03 22:27:05 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-10-03 22:27:05 +0000 |
| commit | ee3c7ddaf0ab726594b278d30430123cd60e63fa (patch) | |
| tree | a9bf0a7fbeb03c15a596c5496380a151e0c19978 | |
| parent | f09b8a7071666bcf9096955ee91dcd0ee02b6833 (diff) | |
Avoid raising an anomaly when an error encapsulated with a dummy
location is raised from a loaded/compiled file!
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13488 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index aef772676..57fa29e16 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -43,7 +43,7 @@ let raise_with_file file exc = ((b, f, loc), e) | Loc.Exc_located (loc, e) when loc <> dummy_loc -> ((false,file, loc), e) - | _ -> ((false,file,cmdloc), re) + | Loc.Exc_located (_, e) | e -> ((false,file,cmdloc), e) in raise (Error_in_file (file, inner, disable_drop inex)) |