modernized structure Context_Position;
authorwenzelm
Mon Nov 02 20:30:40 2009 +0100 (2009-11-02 ago)
changeset 3338312d79ece3f7e
parent 33382 7d2c6e7f91bd
child 33384 1b5ba4e6a953
modernized structure Context_Position;
src/Pure/Isar/local_theory.ML
src/Pure/Isar/proof_context.ML
src/Pure/context_position.ML
     1.1 --- a/src/Pure/Isar/local_theory.ML	Mon Nov 02 19:56:06 2009 +0100
     1.2 +++ b/src/Pure/Isar/local_theory.ML	Mon Nov 02 20:30:40 2009 +0100
     1.3 @@ -150,9 +150,9 @@
     1.4  fun target_result f lthy =
     1.5    let
     1.6      val (res, ctxt') = target_of lthy
     1.7 -      |> ContextPosition.set_visible false
     1.8 +      |> Context_Position.set_visible false
     1.9        |> f
    1.10 -      ||> ContextPosition.restore_visible lthy;
    1.11 +      ||> Context_Position.restore_visible lthy;
    1.12      val thy' = ProofContext.theory_of ctxt';
    1.13      val lthy' = lthy
    1.14        |> map_target (K ctxt')
     2.1 --- a/src/Pure/Isar/proof_context.ML	Mon Nov 02 19:56:06 2009 +0100
     2.2 +++ b/src/Pure/Isar/proof_context.ML	Mon Nov 02 20:30:40 2009 +0100
     2.3 @@ -932,7 +932,7 @@
     2.4    let
     2.5      val pos = Binding.pos_of b;
     2.6      val name = full_name ctxt b;
     2.7 -    val _ = ContextPosition.report_visible ctxt (Markup.local_fact_decl name) pos;
     2.8 +    val _ = Context_Position.report_visible ctxt (Markup.local_fact_decl name) pos;
     2.9  
    2.10      val facts = PureThy.name_thmss false pos name raw_facts;
    2.11      fun app (th, attrs) x =
    2.12 @@ -945,9 +945,9 @@
    2.13  
    2.14  fun put_thms do_props thms ctxt = ctxt
    2.15    |> map_naming (K local_naming)
    2.16 -  |> ContextPosition.set_visible false
    2.17 +  |> Context_Position.set_visible false
    2.18    |> update_thms do_props (apfst Binding.name thms)
    2.19 -  |> ContextPosition.restore_visible ctxt
    2.20 +  |> Context_Position.restore_visible ctxt
    2.21    |> restore_naming ctxt;
    2.22  
    2.23  end;
    2.24 @@ -1085,7 +1085,7 @@
    2.25        |> fold_map declare_var (map2 (fn x' => fn (_, T, mx) => (x', T, mx)) xs' vars)
    2.26        |-> (map_syntax o LocalSyntax.add_syntax (theory_of ctxt) o map prep_mixfix);
    2.27      val _ = (vars ~~ xs') |> List.app (fn ((b, _, _), x') =>
    2.28 -      ContextPosition.report_visible ctxt (Markup.fixed_decl x') (Binding.pos_of b));
    2.29 +      Context_Position.report_visible ctxt (Markup.fixed_decl x') (Binding.pos_of b));
    2.30    in (xs', ctxt'') end;
    2.31  
    2.32  end;
     3.1 --- a/src/Pure/context_position.ML	Mon Nov 02 19:56:06 2009 +0100
     3.2 +++ b/src/Pure/context_position.ML	Mon Nov 02 20:30:40 2009 +0100
     3.3 @@ -12,7 +12,7 @@
     3.4    val report_visible: Proof.context -> Markup.T -> Position.T -> unit
     3.5  end;
     3.6  
     3.7 -structure ContextPosition: CONTEXT_POSITION =
     3.8 +structure Context_Position: CONTEXT_POSITION =
     3.9  struct
    3.10  
    3.11  structure Data = ProofDataFun