theory loader: removed obsolete update_thy (coincides with use_thy);
authorwenzelm
Tue, 07 Aug 2007 20:19:50 +0200
changeset 24174 59a5ffec7078
parent 24173 4ba00a972eb8
child 24175 38a15a3a1aad
theory loader: removed obsolete update_thy (coincides with use_thy);
src/Pure/Isar/isar_cmd.ML
src/Pure/Isar/isar_syn.ML
src/Pure/pure_setup.ML
--- a/src/Pure/Isar/isar_cmd.ML	Tue Aug 07 20:19:49 2007 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Tue Aug 07 20:19:50 2007 +0200
@@ -69,7 +69,6 @@
   val cd: Path.T -> Toplevel.transition -> Toplevel.transition
   val pwd: Toplevel.transition -> Toplevel.transition
   val use_thy: string -> Toplevel.transition -> Toplevel.transition
-  val update_thy: string -> Toplevel.transition -> Toplevel.transition
   val display_drafts: Path.T list -> Toplevel.transition -> Toplevel.transition
   val print_drafts: Path.T list -> Toplevel.transition -> Toplevel.transition
   val pretty_setmargin: int -> Toplevel.transition -> Toplevel.transition
@@ -401,7 +400,6 @@
 (* load theory files *)
 
 fun use_thy name = Toplevel.imperative (fn () => ML_Context.save ThyInfo.use_thy name);
-fun update_thy name = Toplevel.imperative (fn () => ML_Context.save ThyInfo.update_thy name);
 
 
 (* present draft files *)
--- a/src/Pure/Isar/isar_syn.ML	Tue Aug 07 20:19:49 2007 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Tue Aug 07 20:19:50 2007 +0200
@@ -901,10 +901,6 @@
   OuterSyntax.improper_command "use_thy" "use theory file" K.diag
     (P.name >> (Toplevel.no_timing oo IsarCmd.use_thy));
 
-val update_thyP =
-  OuterSyntax.improper_command "update_thy" "update theory file" K.diag
-    (P.name >> (Toplevel.no_timing oo IsarCmd.update_thy));
-
 val touch_thyP =
   OuterSyntax.improper_command "touch_thy" "outdate theory, including descendants" K.diag
     (P.name >> (Toplevel.no_timing oo IsarCmd.touch_thy));
@@ -1023,9 +1019,9 @@
   print_full_prfsP, print_propP, print_termP, print_typeP,
   print_codesetupP,
   (*system commands*)
-  cdP, pwdP, use_thyP, update_thyP, touch_thyP, touch_all_thysP,
-  touch_child_thysP, remove_thyP, kill_thyP, display_draftsP,
-  print_draftsP, prP, disable_prP, enable_prP, commitP, quitP, exitP,
-  init_toplevelP, welcomeP];
+  cdP, pwdP, use_thyP, touch_thyP, touch_all_thysP, touch_child_thysP,
+  remove_thyP, kill_thyP, display_draftsP, print_draftsP, prP,
+  disable_prP, enable_prP, commitP, quitP, exitP, init_toplevelP,
+  welcomeP];
 
 end;
--- a/src/Pure/pure_setup.ML	Tue Aug 07 20:19:49 2007 +0200
+++ b/src/Pure/pure_setup.ML	Tue Aug 07 20:19:50 2007 +0200
@@ -8,11 +8,10 @@
 (* ML toplevel use commands *)
 
 fun use name          = Toplevel.program (fn () => ThyInfo.use name);
-fun time_use name     = Toplevel.program (fn () => ThyInfo.time_use name);
 fun use_thys name     = Toplevel.program (fn () => ThyInfo.use_thys name);
 fun use_thy name      = Toplevel.program (fn () => ThyInfo.use_thy name);
+fun time_use name     = Toplevel.program (fn () => ThyInfo.time_use name);
 fun time_use_thy name = Toplevel.program (fn () => ThyInfo.time_use_thy name);
-fun update_thy name   = Toplevel.program (fn () => ThyInfo.update_thy name);
 
 
 (* the Pure theories *)