diff options
| author | herbelin | 2010-10-26 14:32:52 +0000 |
|---|---|---|
| committer | herbelin | 2010-10-26 14:32:52 +0000 |
| commit | a90491e6e3ce75940b37b1e398ab0a843117e855 (patch) | |
| tree | ecf0107e14681fea6e3c7f51b27ed7fabacdbe2e | |
| parent | 220c14e972a4f46003a4d85496b2f107354b4471 (diff) | |
Compatibility camlp4/camlp5
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13584 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/cerrors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index e5141f5561..61c8e4874f 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -65,7 +65,7 @@ let rec explain_exn_default_aux anomaly_string report_fn = function hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report_fn ()) | Sys.Break -> hov 0 (fnl () ++ str "User interrupt.") - | Stdpp.Exc_located (loc,exc) -> + | Loc.Exc_located (loc,exc) -> hov 0 ((if loc = dummy_loc then (mt ()) else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) ++ explain_exn_default_aux anomaly_string report_fn exc) |