--- a/src/Pure/Syntax/syntax_phases.ML Thu Mar 03 14:03:06 2016 +0100
+++ b/src/Pure/Syntax/syntax_phases.ML Thu Mar 03 15:23:02 2016 +0100
@@ -310,7 +310,7 @@
fun report_result ctxt pos ambig_msgs results =
(case (proper_results results, failed_results results) of
- ([], (reports, exn) :: _) => (Context_Position.reports_text ctxt reports; reraise exn)
+ ([], (reports, exn) :: _) => (Context_Position.reports_text ctxt reports; Exn.reraise exn)
| ([(reports, x)], _) => (Context_Position.reports_text ctxt reports; x)
| _ =>
if null ambig_msgs then