src/Pure/Isar/locale.ML
changeset 30773 6cc9964436c3
parent 30764 3e3e7aa0cc7a
child 30775 71f777103225
     1.1 --- a/src/Pure/Isar/locale.ML	Sat Mar 28 20:52:52 2009 +0100
     1.2 +++ b/src/Pure/Isar/locale.ML	Sun Mar 29 16:13:24 2009 +0200
     1.3 @@ -245,7 +245,7 @@
     1.4      val dependencies' = filter_out (fn (name, morph) =>
     1.5        member (ident_eq thy) marked (name, instance_of thy name morph)) dependencies;
     1.6    in
     1.7 -    (merge (ident_eq thy) (marked, marked'), input |> fold_rev (activate_dep thy) dependencies')
     1.8 +    (merge (ident_eq thy) (marked, marked'), input |> fold_rev activate_dep dependencies')
     1.9    end;
    1.10  
    1.11  end;
    1.12 @@ -285,8 +285,9 @@
    1.13        (if not (null defs)
    1.14          then activ_elem (Defines (map (fn def => (Attrib.empty_binding, (def, []))) defs))
    1.15          else I);
    1.16 +    val activate = activate_notes activ_elem transfer thy;
    1.17    in
    1.18 -    roundup thy (activate_notes activ_elem transfer) (name, Morphism.identity) (marked, input')
    1.19 +    roundup thy activate (name, Morphism.identity) (marked, input')
    1.20    end;
    1.21  
    1.22  
    1.23 @@ -327,13 +328,13 @@
    1.24    let
    1.25      val context = Context.Proof ctxt;
    1.26      val thy = Context.theory_of context;
    1.27 -    val context' = roundup thy (K activate_decls) dep (get_idents context, context) |-> put_idents;
    1.28 +    val context' = roundup thy activate_decls dep (get_idents context, context) |-> put_idents;
    1.29    in Context.the_proof context' end;
    1.30  
    1.31  fun activate_facts dep context =
    1.32    let
    1.33      val thy = Context.theory_of context;
    1.34 -    val activate = activate_notes init_elem (Element.transfer_morphism o Context.theory_of);
    1.35 +    val activate = activate_notes init_elem (Element.transfer_morphism o Context.theory_of) thy;
    1.36    in roundup thy activate dep (get_idents context, context) |-> put_idents end;
    1.37  
    1.38  fun init name thy =
    1.39 @@ -375,8 +376,7 @@
    1.40    Registrations.get #> map (#1 #> apsnd op $>);
    1.41  
    1.42  fun add_registration (name, (base_morph, export)) thy =
    1.43 -  roundup thy (fn _ => fn (name', morph') =>
    1.44 -    Registrations.map (cons ((name', (morph', export)), stamp ())))
    1.45 +  roundup thy (fn (name', morph') => Registrations.map (cons ((name', (morph', export)), stamp ())))
    1.46      (name, base_morph) (get_idents (Context.Theory thy), thy) |> snd;
    1.47      (* FIXME |-> put_global_idents ?*)
    1.48