From a90491e6e3ce75940b37b1e398ab0a843117e855 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 26 Oct 2010 14:32:52 +0000
Subject: Compatibility camlp4/camlp5

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13584 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/cerrors.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3