# HG changeset patch
# User wenzelm
# Date 1190886365 -7200
# Node ID e9f9d4297bda5e81d0352b1b23e2c7fa42d4da5b
# Parent  258e1877d0c59df0a81d190977a6d8ba033f0255
read: explicit treatment of scanner failure;

diff -r 258e1877d0c5 -r e9f9d4297bda src/Pure/Thy/thy_header.ML
--- a/src/Pure/Thy/thy_header.ML	Wed Sep 26 22:38:11 2007 +0200
+++ b/src/Pure/Thy/thy_header.ML	Thu Sep 27 11:46:05 2007 +0200
@@ -54,7 +54,7 @@
     |> Symbol.source false
     |> T.source NONE (fn () => (header_lexicon, Scan.empty_lexicon)) pos
     |> T.source_proper
-    |> Source.source T.stopper (Scan.single (Scan.error header)) NONE
+    |> Source.source T.stopper (Scan.single (Scan.error (P.!!! header))) NONE
     |> Source.get_single;
   in
     (case res of SOME (x, _) => x