# HG changeset patch
# User wenzelm
# Date 1160177479 -7200
# Node ID 5dc02e7880be1ac6895e69e52ce0be320c239537
# Parent  052bde912a5198f104304a39172f3bdb74c58c5d
TheoryTarget;

diff -r 052bde912a51 -r 5dc02e7880be src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sat Oct 07 01:31:18 2006 +0200
+++ b/src/Pure/Isar/toplevel.ML	Sat Oct 07 01:31:19 2006 +0200
@@ -133,8 +133,8 @@
 
 fun body_context_node (SOME (Theory (_, SOME ctxt))) NONE = ctxt
   | body_context_node (SOME node) loc =
-      node |> cases_node (LocalTheory.init loc)
-       (if is_some loc then LocalTheory.init loc o Proof.theory_of
+      node |> cases_node (TheoryTarget.init loc)
+       (if is_some loc then TheoryTarget.init loc o Proof.theory_of
         else Proof.context_of)
   | body_context_node NONE _ = raise UNDEF;
 
@@ -534,7 +534,7 @@
 fun theory_context f = app_current
   (K (fn Theory (thy, _) => Theory (swap (apfst SOME (f thy))) | _ => raise UNDEF));
 
-fun local_theory loc f = theory_context (LocalTheory.mapping loc f);
+fun local_theory loc f = theory_context (TheoryTarget.mapping loc f);
 
 fun theory_to_proof f = app_current (fn int =>
   (fn Theory (thy, _) =>
@@ -588,7 +588,7 @@
   | _ => raise UNDEF));
 
 fun present_local_theory loc f = app_current (fn int =>
-  (fn Theory (thy, _) => Theory (swap (apfst SOME (LocalTheory.mapping loc I thy)))
+  (fn Theory (thy, _) => Theory (swap (apfst SOME (TheoryTarget.mapping loc I thy)))
     | _ => raise UNDEF) #> tap (f int));
 
 fun present_proof f = map_current (fn int =>