# 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