--- a/src/Pure/General/source.ML Mon Nov 11 18:37:56 2013 +0100
+++ b/src/Pure/General/source.ML Mon Nov 11 20:00:53 2013 +0100
@@ -156,8 +156,9 @@
NONE => drain (Scan.error scan) inp
| SOME (interactive, recover) =>
(drain (Scan.catch scan) inp handle Fail msg =>
- (if interactive then Output.error_msg msg else ();
- drain (Scan.unless (Scan.lift (Scan.one (Scan.is_stopper stopper))) (recover msg)) inp)));
+ (if interactive then Output.error_message msg else ();
+ drain (Scan.unless (Scan.lift (Scan.one (Scan.is_stopper stopper))) (recover msg))
+ inp)));
in (ys, (state', unget (xs', src'))) end;
fun source' init_state stopper scan recover src =