src/Tools/Code/code_thingol.ML
changeset 77889 5db014c36f42
parent 77707 a6a81f848135
child 77921 5016262a2384
--- a/src/Tools/Code/code_thingol.ML	Wed Apr 19 23:27:55 2023 +0200
+++ b/src/Tools/Code/code_thingol.ML	Thu Apr 20 11:57:34 2023 +0200
@@ -1009,7 +1009,7 @@
   let
     val thy = Proof_Context.theory_of ctxt;
     fun this_theory name =
-      if Context.theory_name thy = name then thy
+      if Context.theory_base_name thy = name then thy
       else Context.get_theory {long = false} thy name;
 
     fun consts_of thy' =