equal
deleted
inserted
replaced
215 let |
215 let |
216 val _ = OS.Process.sleep (seconds 0.5); (*yield to raw ML toplevel*) |
216 val _ = OS.Process.sleep (seconds 0.5); (*yield to raw ML toplevel*) |
217 val _ = Output.physical_stderr Symbol.STX; |
217 val _ = Output.physical_stderr Symbol.STX; |
218 |
218 |
219 val _ = Printer.show_markup_default := true; |
219 val _ = Printer.show_markup_default := true; |
220 val _ = quick_and_dirty := false; |
|
221 val _ = Context.set_thread_data NONE; |
220 val _ = Context.set_thread_data NONE; |
222 val _ = |
221 val _ = |
223 Unsynchronized.change print_mode |
222 Unsynchronized.change print_mode |
224 (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2); |
223 (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2); |
225 |
224 |