src/Pure/Thy/thm_deps.ML
changeset 20578 f26c8408a675
parent 18799 f137c5e971f5
child 20664 ffbc5a57191a
--- a/src/Pure/Thy/thm_deps.ML	Mon Sep 18 19:12:49 2006 +0200
+++ b/src/Pure/Thy/thm_deps.ML	Mon Sep 18 19:12:50 2006 +0200
@@ -67,14 +67,9 @@
       end);
 
 fun thm_deps thms =
-  let
-    val _ = writeln "Generating graph ...";
-    val gra = map snd (Symtab.dest (fst
-      (fold make_deps_graph (map Thm.proof_of thms) (Symtab.empty, []))));
-    val path = File.tmp_path (Path.unpack "theorems.graph");
-    val _ = Present.write_graph gra path;
-    val _ = File.isatool ("browser -d " ^ File.shell_path path ^ " &");
-  in () end;
+  Present.display_graph
+    (map snd (Symtab.dest (fst
+      (fold make_deps_graph (map Thm.proof_of thms) (Symtab.empty, [])))));
 
 end;