Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Thy/thy_header.ML
changeset 24739 e9f9d4297bda
parent 24577 c6acb6d79757
child 27835 ff8b8513965a 
--- 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
isabelle