src/Pure/Isar/named_target.ML
changeset 47279 4bab649dedf0
parent 47278 daeaf4824e9a
child 47282 57d486231c92
equal deleted inserted replaced
47278:daeaf4824e9a 47279:4bab649dedf0
   144 
   144 
   145 
   145 
   146 (* declaration *)
   146 (* declaration *)
   147 
   147 
   148 fun target_declaration (Target {target, ...}) {syntax, pervasive} decl lthy =
   148 fun target_declaration (Target {target, ...}) {syntax, pervasive} decl lthy =
   149   if target = "" then Generic_Target.standard_declaration decl lthy
   149   if target = "" then Generic_Target.theory_declaration decl lthy
   150   else
   150   else
   151     lthy
   151     lthy
   152     |> pervasive ? Generic_Target.background_declaration decl
   152     |> pervasive ? Generic_Target.background_declaration decl
   153     |> Generic_Target.locale_declaration target syntax decl
   153     |> Generic_Target.locale_declaration target syntax decl
   154     |> (fn lthy' => lthy' |> Local_Theory.map_contexts (fn level => fn ctxt =>
   154     |> (fn lthy' => lthy' |> Local_Theory.map_contexts (fn level => fn ctxt =>