src/Pure/Thy/thm_deps.ML
changeset 30364 577edc39b501
parent 30280 eb98b49ef835
child 31174 f1f1e9b53c81
--- a/src/Pure/Thy/thm_deps.ML	Sun Mar 08 17:19:15 2009 +0100
+++ b/src/Pure/Thy/thm_deps.ML	Sun Mar 08 17:26:14 2009 +0100
@@ -20,7 +20,7 @@
     fun add_dep ("", _, _) = I
       | add_dep (name, _, PBody {thms = thms', ...}) =
           let
-            val prefix = #1 (Library.split_last (NameSpace.explode name));
+            val prefix = #1 (Library.split_last (Long_Name.explode name));
             val session =
               (case prefix of
                 a :: _ =>
@@ -33,7 +33,7 @@
                | _ => ["global"]);
             val parents = filter_out (fn s => s = "") (map (#1 o #2) thms');
             val entry =
-              {name = NameSpace.base_name name,
+              {name = Long_Name.base_name name,
                ID = name,
                dir = space_implode "/" (session @ prefix),
                unfold = false,