src/Pure/General/name_space.ML
changeset 64556 851ae0e7b09c
parent 64307 c4d16f35c6e7
child 66247 8d966b4a7469
equal deleted inserted replaced
64555:628b271c5b8b 64556:851ae0e7b09c
   211   | _ => false);
   211   | _ => false);
   212 
   212 
   213 
   213 
   214 (* extern *)
   214 (* extern *)
   215 
   215 
   216 val names_long_raw = Config.declare_option ("names_long", @{here});
   216 val names_long_raw = Config.declare_option ("names_long", \<^here>);
   217 val names_long = Config.bool names_long_raw;
   217 val names_long = Config.bool names_long_raw;
   218 
   218 
   219 val names_short_raw = Config.declare_option ("names_short", @{here});
   219 val names_short_raw = Config.declare_option ("names_short", \<^here>);
   220 val names_short = Config.bool names_short_raw;
   220 val names_short = Config.bool names_short_raw;
   221 
   221 
   222 val names_unique_raw = Config.declare_option ("names_unique", @{here});
   222 val names_unique_raw = Config.declare_option ("names_unique", \<^here>);
   223 val names_unique = Config.bool names_unique_raw;
   223 val names_unique = Config.bool names_unique_raw;
   224 
   224 
   225 fun extern ctxt space name =
   225 fun extern ctxt space name =
   226   let
   226   let
   227     val names_long = Config.get ctxt names_long;
   227     val names_long = Config.get ctxt names_long;