src/Pure/Isar/named_target.ML
changeset 47069 451fc10a81f3
parent 47066 8a6124d09ff5
child 47080 bfad2f674d0e
equal deleted inserted replaced
47068:2027ff3136cc 47069:451fc10a81f3
   213   end;
   213   end;
   214 
   214 
   215 val theory_init = init I "";
   215 val theory_init = init I "";
   216 
   216 
   217 val reinit =
   217 val reinit =
   218   assert #> Data.get #> the #>
   218   Local_Theory.assert_bottom true #> Data.get #> the #>
   219   (fn Target {target, before_exit, ...} => Local_Theory.exit_global #> init before_exit target);
   219   (fn Target {target, before_exit, ...} => Local_Theory.exit_global #> init before_exit target);
   220 
   220 
   221 fun context_cmd ("-", _) thy = init I "" thy
   221 fun context_cmd ("-", _) thy = init I "" thy
   222   | context_cmd target thy = init I (Locale.check thy target) thy;
   222   | context_cmd target thy = init I (Locale.check thy target) thy;
   223 
   223