--- a/src/Pure/Isar/outer_syntax.ML Sat Aug 13 20:41:29 2011 +0200
+++ b/src/Pure/Isar/outer_syntax.ML Sat Aug 13 20:49:41 2011 +0200
@@ -224,7 +224,7 @@
fun process_file path thy =
let
val trs = parse (Path.position path) (File.read path);
- val init = Toplevel.init_theory "" (K thy) Toplevel.empty;
+ val init = Toplevel.init_theory (K thy) Toplevel.empty;
val result = fold Toplevel.command (init :: trs) Toplevel.toplevel;
in
(case (Toplevel.is_theory result, Toplevel.generic_theory_of result) of