equal
deleted
inserted
replaced
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 |