actually qualify theory names;
authorwenzelm
Tue, 18 Apr 2017 14:19:49 +0200
changeset 65503 a3fffad8f217
parent 65502 c05bec5d01ad
child 65504 b80477da30eb
actually qualify theory names;
src/Pure/PIDE/resources.ML
src/Pure/PIDE/resources.scala
--- a/src/Pure/PIDE/resources.ML	Mon Apr 17 21:50:56 2017 +0200
+++ b/src/Pure/PIDE/resources.ML	Tue Apr 18 14:19:49 2017 +0200
@@ -119,7 +119,7 @@
   | NONE =>
       let val theory =
         if Long_Name.is_qualified theory0 orelse is_some (global_theory theory0)
-          orelse true (* FIXME *) then theory0
+        then theory0
         else Long_Name.qualify qualifier theory0
       in (false, theory) end);
 
--- a/src/Pure/PIDE/resources.scala	Mon Apr 17 21:50:56 2017 +0200
+++ b/src/Pure/PIDE/resources.scala	Tue Apr 18 14:19:49 2017 +0200
@@ -73,8 +73,8 @@
       case Some(theory) => (true, theory)
       case None =>
         val theory =
-          if (Long_Name.is_qualified(theory0) || session_base.global_theories.isDefinedAt(theory0)
-              || true /* FIXME */) theory0
+          if (Long_Name.is_qualified(theory0) || session_base.global_theories.isDefinedAt(theory0))
+            theory0
           else Long_Name.qualify(qualifier, theory0)
         (false, theory)
     }