# HG changeset patch
# User wenzelm
# Date 934921165 -7200
# Node ID f17f2e8ba0c76214165f49bd9440f1c55f6340e9
# Parent  8f3c14d60345baed0c887cb242917b5f72f06f96
begin_update_theory;

diff -r 8f3c14d60345 -r f17f2e8ba0c7 src/Pure/Isar/isar_thy.ML
--- a/src/Pure/Isar/isar_thy.ML	Tue Aug 17 22:16:21 1999 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Tue Aug 17 22:19:25 1999 +0200
@@ -458,12 +458,15 @@
 
 (* theory init and exit *)
 
-fun begin_theory name parents files =
+fun gen_begin_theory bg name parents files =
   let
     val paths = map (apfst Path.unpack) files;
-    val thy = ThyInfo.begin_theory name parents paths;
+    val thy = bg name parents paths;
   in Present.begin_theory name parents paths thy end;
 
+val begin_theory = gen_begin_theory ThyInfo.begin_theory;
+val begin_update_theory = gen_begin_theory ThyInfo.begin_update_theory;
+
 fun end_theory thy =
   (Present.end_theory (PureThy.get_name thy); ThyInfo.end_theory thy);
 
@@ -471,8 +474,7 @@
 
 
 fun bg_theory (name, parents, files) int =
-  (if int then seq ThyInfo.update_thy parents else ();   (*FIXME robust!? *)
-    begin_theory name parents files);
+  (if int then begin_update_theory else begin_theory) name parents files;
 
 fun en_theory thy = (end_theory thy; ());
 
@@ -482,7 +484,7 @@
 (* context switch *)
 
 fun context name =
-  Toplevel.init_theory (fn _ => (the (#2 (Context.pass None ThyInfo.update_thy name))))
+  Toplevel.init_theory (fn _ => (the (#2 (Context.pass None ThyInfo.quiet_update_thy name))))
   (K ()) (K ());