removed obsolete use_noncritical (plain use is already non-critical);
authorwenzelm
Tue, 18 Dec 2007 22:21:41 +0100
changeset 25703 832073e402ae
parent 25702 a61554b1e7a9
child 25704 df9c8074ff09
removed obsolete use_noncritical (plain use is already non-critical);
src/Pure/General/secure.ML
src/Pure/Isar/session.ML
--- a/src/Pure/General/secure.ML	Tue Dec 18 22:21:40 2007 +0100
+++ b/src/Pure/General/secure.ML	Tue Dec 18 22:21:41 2007 +0100
@@ -11,7 +11,6 @@
   val is_secure: unit -> bool
   val use_text: string -> (string -> unit) * (string -> 'a) -> bool -> string -> unit
   val use_file: (string -> unit) * (string -> 'a) -> bool -> string -> unit
-  val use_noncritical: string -> unit
   val use: string -> unit
   val commit: unit -> unit
   val execute: string -> string
@@ -48,9 +47,6 @@
 
 fun use name = use_file Output.ml_output true name;
 
-fun use_noncritical name =  (* FIXME obsolete *)
-  (secure_mltext (); orig_use_file Output.ml_output true name);
-
 (*commit is dynamically bound!*)
 fun commit () = orig_use_text "" Output.ml_output false "commit();";
 
--- a/src/Pure/Isar/session.ML	Tue Dec 18 22:21:40 2007 +0100
+++ b/src/Pure/Isar/session.ML	Tue Dec 18 22:21:41 2007 +0100
@@ -84,7 +84,7 @@
      (init reset parent name;
       Present.init build info doc doc_graph doc_versions (path ()) name
         (dumping dump) (get_rpath rpath) verbose (map ThyInfo.theory (ThyInfo.names ()));
-      Secure.use_noncritical root;
+      use root;
       finish ()))
     |> setmp_noncritical Proofterm.proofs level
     |> setmp_noncritical print_mode (modes @ print_mode_value ())