From 10316fbfa59b66817f447ac4a35242893bc9970a Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Tue, 24 Aug 2010 09:58:26 -0700
Subject: Make error reporting slightly more regular.

---
 src/boot/fe/cexp.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/boot/fe')

diff --git a/src/boot/fe/cexp.ml b/src/boot/fe/cexp.ml
index 9c1b40e1..f69d35bd 100644
--- a/src/boot/fe/cexp.ml
+++ b/src/boot/fe/cexp.ml
@@ -602,10 +602,11 @@ let with_err_handling sess thunk =
     thunk ()
   with
       Parse_err (ps, str) ->
-        Session.fail sess "Parse error: %s\n%!" str;
+        Session.fail sess "%s: error: %s\n%!"
+          (Session.string_of_pos (lexpos ps)) str;
         List.iter
           (fun (cx,pos) ->
-             Session.fail sess "%s:E (parse context): %s\n%!"
+             Session.fail sess "%s: (parse context): %s\n%!"
                (Session.string_of_pos pos) cx)
           ps.pstate_ctxt;
         let apos = lexpos ps in
-- 
cgit v1.2.3