src/Pure/General/output.ML
changeset 62894 047129a6e200
parent 61885 acdfc76a6c33
child 62930 51ac6bc389e8
equal deleted inserted replaced
62893:fca40adc6342 62894:047129a6e200
    72 local
    72 local
    73   val default = {output = default_output, escape = default_escape};
    73   val default = {output = default_output, escape = default_escape};
    74   val modes = Synchronized.var "Output.modes" (Symtab.make [("", default)]);
    74   val modes = Synchronized.var "Output.modes" (Symtab.make [("", default)]);
    75 in
    75 in
    76   fun add_mode name output escape =
    76   fun add_mode name output escape =
    77     Synchronized.change modes (Symtab.update_new (name, {output = output, escape = escape}));
    77     if Thread_Data.is_virtual then ()
       
    78     else Synchronized.change modes (Symtab.update_new (name, {output = output, escape = escape}));
    78   fun get_mode () =
    79   fun get_mode () =
    79     the_default default
    80     the_default default
    80       (Library.get_first (Symtab.lookup (Synchronized.value modes)) (print_mode_value ()));
    81       (Library.get_first (Symtab.lookup (Synchronized.value modes)) (print_mode_value ()));
    81 end;
    82 end;
    82 
    83