renamed ML_Context.the_context to ML_Context.the_global_context;
authorwenzelm
Thu Mar 27 14:41:10 2008 +0100 (2008-03-27)
changeset 264256561665c5cb1
parent 26424 a6cad32a27b0
child 26426 ddac7ef1e991
renamed ML_Context.the_context to ML_Context.the_global_context;
src/Provers/clasimp.ML
src/Provers/classical.ML
src/Pure/Isar/isar_cmd.ML
src/Pure/Thy/thy_info.ML
src/Pure/simplifier.ML
     1.1 --- a/src/Provers/clasimp.ML	Thu Mar 27 14:41:09 2008 +0100
     1.2 +++ b/src/Provers/clasimp.ML	Thu Mar 27 14:41:10 2008 +0100
     1.3 @@ -81,7 +81,7 @@
     1.4      Simplifier.change_simpset_of thy (fn _ => ss')
     1.5    end;
     1.6  
     1.7 -fun change_clasimpset f = change_clasimpset_of (ML_Context.the_context ()) f;
     1.8 +fun change_clasimpset f = change_clasimpset_of (ML_Context.the_global_context ()) f;
     1.9  fun clasimpset () = (Classical.claset (), Simplifier.simpset ());
    1.10  
    1.11  
     2.1 --- a/src/Provers/classical.ML	Thu Mar 27 14:41:09 2008 +0100
     2.2 +++ b/src/Provers/classical.ML	Thu Mar 27 14:41:10 2008 +0100
     2.3 @@ -879,12 +879,12 @@
     2.4    (fn ContextCS {swrappers, uwrappers} => make_context_cs (f (swrappers, uwrappers))));
     2.5  
     2.6  val change_claset_of = change o #1 o GlobalClaset.get;
     2.7 -fun change_claset f = change_claset_of (ML_Context.the_context ()) f;
     2.8 +fun change_claset f = change_claset_of (ML_Context.the_global_context ()) f;
     2.9  
    2.10  fun claset_of thy =
    2.11    let val (cs_ref, ctxt_cs) = GlobalClaset.get thy
    2.12    in context_cs (ProofContext.init thy) (! cs_ref) (ctxt_cs) end;
    2.13 -val claset = claset_of o ML_Context.the_context;
    2.14 +val claset = claset_of o ML_Context.the_global_context;
    2.15  
    2.16  fun CLASET tacf st = tacf (claset_of (Thm.theory_of_thm st)) st;
    2.17  fun CLASET' tacf i st = tacf (claset_of (Thm.theory_of_thm st)) i st;
     3.1 --- a/src/Pure/Isar/isar_cmd.ML	Thu Mar 27 14:41:09 2008 +0100
     3.2 +++ b/src/Pure/Isar/isar_cmd.ML	Thu Mar 27 14:41:10 2008 +0100
     3.3 @@ -201,7 +201,7 @@
     3.4      \  val name = " ^ quote name ^ ";\n\
     3.5      \  exception Arg of T;\n\
     3.6      \  val _ = Context.>> (Theory.add_oracle (name, fn (thy, Arg x) => oracle thy x));\n\
     3.7 -    \  val thy = ML_Context.the_context ();\n\
     3.8 +    \  val thy = ML_Context.the_global_context ();\n\
     3.9      \  val invoke_" ^ name ^ " = Thm.invoke_oracle_i thy (Sign.full_name thy name);\n\
    3.10      \in\n\
    3.11      \  fun " ^ name ^ " thy x = invoke_" ^ name ^ " (thy, Arg x);\n\
     4.1 --- a/src/Pure/Thy/thy_info.ML	Thu Mar 27 14:41:09 2008 +0100
     4.2 +++ b/src/Pure/Thy/thy_info.ML	Thu Mar 27 14:41:10 2008 +0100
     4.3 @@ -206,13 +206,13 @@
     4.4  val _ = ML_Context.value_antiq "theory"
     4.5    (Scan.lift Args.name
     4.6      >> (fn name => (name ^ "_thy", "ThyInfo.theory " ^ ML_Syntax.print_string name))
     4.7 -  || Scan.succeed ("thy", "ML_Context.the_context ()"));
     4.8 +  || Scan.succeed ("thy", "ML_Context.the_global_context ()"));
     4.9  
    4.10  val _ = ML_Context.value_antiq "theory_ref"
    4.11    (Scan.lift Args.name
    4.12      >> (fn name => (name ^ "_thy",
    4.13          "Theory.check_thy (ThyInfo.theory " ^ ML_Syntax.print_string name ^ ")"))
    4.14 -  || Scan.succeed ("thy", "Theory.check_thy (ML_Context.the_context ())"));
    4.15 +  || Scan.succeed ("thy", "Theory.check_thy (ML_Context.the_global_context ())"));
    4.16  
    4.17  
    4.18  
    4.19 @@ -603,8 +603,6 @@
    4.20      else CRITICAL (fn () => (change_thys register; perform Update name))
    4.21    end;
    4.22  
    4.23 -val _ = register_theory ProtoPure.thy;
    4.24 -
    4.25  
    4.26  (* finish all theories *)
    4.27  
     5.1 --- a/src/Pure/simplifier.ML	Thu Mar 27 14:41:09 2008 +0100
     5.2 +++ b/src/Pure/simplifier.ML	Thu Mar 27 14:41:10 2008 +0100
     5.3 @@ -110,10 +110,10 @@
     5.4  val get_simpset = ! o GlobalSimpset.get;
     5.5  
     5.6  fun change_simpset_of thy f = CRITICAL (fn () => change (GlobalSimpset.get thy) f);
     5.7 -fun change_simpset f = CRITICAL (fn () => change_simpset_of (ML_Context.the_context ()) f);
     5.8 +fun change_simpset f = CRITICAL (fn () => change_simpset_of (ML_Context.the_global_context ()) f);
     5.9  
    5.10  fun simpset_of thy = MetaSimplifier.context (ProofContext.init thy) (get_simpset thy);
    5.11 -val simpset = simpset_of o ML_Context.the_context;
    5.12 +val simpset = simpset_of o ML_Context.the_global_context;
    5.13  
    5.14  
    5.15  fun SIMPSET tacf st = tacf (simpset_of (Thm.theory_of_thm st)) st;