# HG changeset patch
# User wenzelm
# Date 1491486256 -7200
# Node ID 4546272431e90315e2e68ace92125bbe6984d160
# Parent  cc9e2f1f279d27eff38ccc1e6575f4eb2b26943a
clarified fall-back name;

diff -r cc9e2f1f279d -r 4546272431e9 src/Pure/Thy/sessions.scala
--- a/src/Pure/Thy/sessions.scala	Thu Apr 06 15:20:45 2017 +0200
+++ b/src/Pure/Thy/sessions.scala	Thu Apr 06 15:44:16 2017 +0200
@@ -97,7 +97,8 @@
                   case Some(name1) if name != name1 =>
                     error("Duplicate theory " + quote(name.node) + " vs. " + quote(name1.node))
                   case _ =>
-                    known + (name.theory -> name) + (Long_Name.base_name(name.theory) -> name)
+                    known + (name.theory -> name) +
+                      (Long_Name.base_name(name.theory) -> name)  // legacy
                 }
               })
 
diff -r cc9e2f1f279d -r 4546272431e9 src/Pure/Thy/thy_info.scala
--- a/src/Pure/Thy/thy_info.scala	Thu Apr 06 15:20:45 2017 +0200
+++ b/src/Pure/Thy/thy_info.scala	Thu Apr 06 15:44:16 2017 +0200
@@ -82,7 +82,9 @@
 
     def loaded_theories: Set[String] =
       (resources.session_base.loaded_theories /: rev_deps) {
-        case (loaded, dep) => loaded + dep.name.theory
+        case (loaded, dep) =>
+          loaded + dep.name.theory +
+            Long_Name.base_name(dep.name.theory)  // legacy
       }
 
     def loaded_files: List[Path] =