Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clarified fall-back name;
authorwenzelm
Thu, 06 Apr 2017 15:44:16 +0200
changeset 65407 4546272431e9
parent 65406 cc9e2f1f279d
child 65408 c728f922f657
clarified fall-back name;
src/Pure/Thy/sessions.scala file | annotate | diff | comparison | revisions
src/Pure/Thy/thy_info.scala file | annotate | diff | comparison | revisions 
--- 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
                 }
               })
 
--- 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] =
isabelle