src/Pure/Isar/isar_cmd.ML
changeset 37866 cd1d1bc7684c
parent 37305 9763792e4ac7
child 37870 dd9cfc512b7f
--- a/src/Pure/Isar/isar_cmd.ML	Wed Jul 21 13:25:14 2010 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Wed Jul 21 13:55:44 2010 +0200
@@ -408,14 +408,16 @@
 val thy_deps = Toplevel.unknown_theory o Toplevel.keep (fn state =>
   let
     val thy = Toplevel.theory_of state;
+    val thy_session = Present.session_name thy;
+
     val all_thys = sort Thy_Info.thy_ord (thy :: Theory.ancestors_of thy);
     val gr = all_thys |> map (fn node =>
       let
         val name = Context.theory_name node;
         val parents = map Context.theory_name (Theory.parents_of node);
-        val dir = Present.session_name node;
-        val unfold = not (Thy_Info.known_thy name andalso Thy_Info.is_finished name);
-      in {name = name, ID = name, parents = parents, dir = dir, unfold = unfold, path = ""} end);
+        val session = Present.session_name node;
+        val unfold = (session = thy_session);
+      in {name = name, ID = name, parents = parents, dir = session, unfold = unfold, path = ""} end);
   in Present.display_graph gr end);
 
 val class_deps = Toplevel.unknown_theory o Toplevel.keep (fn state =>