Enable switching to new locales during session.
authorballarin
Wed Nov 19 16:58:33 2008 +0100 (2008-11-19)
changeset 288499458d7a6388a
parent 28848 9a02932efb91
child 28850 6882e110c29a
Enable switching to new locales during session.
src/Pure/Isar/ROOT.ML
src/Pure/Isar/theory_target.ML
     1.1 --- a/src/Pure/Isar/ROOT.ML	Wed Nov 19 08:58:57 2008 +0100
     1.2 +++ b/src/Pure/Isar/ROOT.ML	Wed Nov 19 16:58:33 2008 +0100
     1.3 @@ -51,6 +51,7 @@
     1.4  use "obtain.ML";
     1.5  
     1.6  (*local theories and targets*)
     1.7 +val new_locales = ref false;
     1.8  use "local_theory.ML";
     1.9  use "overloading.ML";
    1.10  use "locale.ML";
     2.1 --- a/src/Pure/Isar/theory_target.ML	Wed Nov 19 08:58:57 2008 +0100
     2.2 +++ b/src/Pure/Isar/theory_target.ML	Wed Nov 19 16:58:33 2008 +0100
     2.3 @@ -23,15 +23,13 @@
     2.4  
     2.5  (* new locales *)
     2.6  
     2.7 -val new_locales = false;
     2.8 -
     2.9 -fun locale_extern x = if new_locales then NewLocale.extern x else Locale.extern x;
    2.10 -fun locale_add_type_syntax x = if new_locales then NewLocale.add_type_syntax x else Locale.add_type_syntax x;
    2.11 -fun locale_add_term_syntax x = if new_locales then NewLocale.add_term_syntax x else Locale.add_term_syntax x;
    2.12 -fun locale_add_declaration x = if new_locales then NewLocale.add_declaration x else Locale.add_declaration x;
    2.13 -fun locale_add_thmss x = if new_locales then NewLocale.add_thmss x else Locale.add_thmss x;
    2.14 -fun locale_init x = if new_locales then NewLocale.init x else Locale.init x;
    2.15 -fun locale_intern x = if new_locales then NewLocale.intern x else Locale.intern x;
    2.16 +fun locale_extern x = if !new_locales then NewLocale.extern x else Locale.extern x;
    2.17 +fun locale_add_type_syntax x = if !new_locales then NewLocale.add_type_syntax x else Locale.add_type_syntax x;
    2.18 +fun locale_add_term_syntax x = if !new_locales then NewLocale.add_term_syntax x else Locale.add_term_syntax x;
    2.19 +fun locale_add_declaration x = if !new_locales then NewLocale.add_declaration x else Locale.add_declaration x;
    2.20 +fun locale_add_thmss x = if !new_locales then NewLocale.add_thmss x else Locale.add_thmss x;
    2.21 +fun locale_init x = if !new_locales then NewLocale.init x else Locale.init x;
    2.22 +fun locale_intern x = if !new_locales then NewLocale.intern x else Locale.intern x;
    2.23  
    2.24  (* context data *)
    2.25