src/Pure/Thy/thm_deps.ML
changeset 41489 8e2b8649507d
parent 39557 fe5722fce758
child 41565 9718c32f9c4e
     1.1 --- a/src/Pure/Thy/thm_deps.ML	Mon Jan 10 08:18:49 2011 +0100
     1.2 +++ b/src/Pure/Thy/thm_deps.ML	Mon Jan 10 15:19:48 2011 +0100
     1.3 @@ -20,7 +20,7 @@
     1.4      fun add_dep ("", _, _) = I
     1.5        | add_dep (name, _, PBody {thms = thms', ...}) =
     1.6            let
     1.7 -            val prefix = #1 (Library.split_last (Long_Name.explode name));
     1.8 +            val prefix = #1 (split_last (Long_Name.explode name));
     1.9              val session =
    1.10                (case prefix of
    1.11                  a :: _ =>