src/Pure/PIDE/document.ML
changeset 51294 0850d43cb355
parent 51293 05b1bbae748d
child 52508 98475be0b1a2
--- 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 =