diff -r 05b1bbae748d -r 0850d43cb355 src/Pure/PIDE/document.ML --- a/src/Pure/PIDE/document.ML Wed Feb 27 12:45:19 2013 +0100 +++ b/src/Pure/PIDE/document.ML Wed Feb 27 16:27:44 2013 +0100 @@ -83,7 +83,7 @@ fun make_perspective command_ids : perspective = (Inttab.defined (Inttab.make (map (rpair ()) command_ids)), try List.last command_ids); -val no_header = ("", Thy_Header.make ("", Position.none) [] [] [], ["Bad theory header"]); +val no_header = ("", Thy_Header.make ("", Position.none) [] [], ["Bad theory header"]); val no_perspective = make_perspective []; val empty_node = make_node (no_header, no_perspective, (Entries.empty, true), NONE); @@ -102,9 +102,9 @@ fun read_header node span = let - val (dir, {name = (name, _), imports, keywords, files}) = get_header node; + val (dir, {name = (name, _), imports, keywords}) = get_header node; val {name = (_, pos), imports = imports', ...} = Thy_Header.read_tokens span; - in (dir, Thy_Header.make (name, pos) (map #1 imports ~~ map #2 imports') keywords files) end; + in (dir, Thy_Header.make (name, pos) (map #1 imports ~~ map #2 imports') keywords) end; fun get_perspective (Node {perspective, ...}) = perspective; fun set_perspective ids =