switch_theory: Context.pass;

--- a/src/Pure/Isar/isar_thy.ML	Thu Apr 22 13:04:50 1999 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Thu Apr 22 13:16:22 1999 +0200
@@ -337,9 +337,8 @@
 
 (* context switch *)
 
-fun switch_theory load name =
-  Toplevel.init_theory
-    (fn () => (Context.save load name; ThyInfo.get_theory name)) (K ());
+fun switch_theory load s =
+  Toplevel.init_theory (fn () => (the (#2 (Context.pass None load s)))) (K ());
 
 val context = switch_theory ThyInfo.use_thy;
 val update_context = switch_theory ThyInfo.update_thy;