src/Pure/Thy/thy_header.ML
changeset 58904 f49c4f883c58
parent 58903 38c72f5f6c2e
child 58907 0ee3563803c9
--- a/src/Pure/Thy/thy_header.ML	Wed Nov 05 20:20:57 2014 +0100
+++ b/src/Pure/Thy/thy_header.ML	Wed Nov 05 20:49:30 2014 +0100
@@ -141,7 +141,7 @@
   str
   |> Source.of_string_limited 8000
   |> Symbol.source
-  |> Token.source_strict (K header_keywords) pos;
+  |> Token.source_strict header_keywords pos;
 
 fun read_source pos source =
   let val res =