# HG changeset patch
# User wenzelm
# Date 1376741598 -7200
# Node ID 1474d251b56241aeb2f3b9e35733bf2cbdc38b47
# Parent  bca3769b6b451bb8b2966d50a2542b1c2ffcc025
recovered Locale.intern from d51bac27d4a0 (still used in AFP/Simp);

diff -r bca3769b6b45 -r 1474d251b562 src/Pure/Isar/locale.ML
--- a/src/Pure/Isar/locale.ML	Sat Aug 17 12:25:26 2013 +0200
+++ b/src/Pure/Isar/locale.ML	Sat Aug 17 14:13:18 2013 +0200
@@ -36,6 +36,7 @@
     declaration list ->
     (string * (Attrib.binding * (thm list * Attrib.src list) list) list) list ->
     (string * morphism) list -> theory -> theory
+  val intern: theory -> xstring -> string
   val check: theory -> xstring * Position.T -> string
   val extern: theory -> string -> xstring
   val markup_name: Proof.context -> string -> string
@@ -159,6 +160,7 @@
   val merge = Name_Space.join_tables (K merge_locale);
 );
 
+val intern = Name_Space.intern o #1 o Locales.get;
 fun check thy = #1 o Name_Space.check (Context.Theory thy) (Locales.get thy);
 
 fun extern thy = Name_Space.extern (Proof_Context.init_global thy) (#1 (Locales.get thy));