anchor.diff:    orddict:fold(Fold, ok, Streams).
   
   print_stream(Tag, Buffer, Output) ->
  -  to_file(Output, tag_to_filename(Tag) ++ ":~n", []),
  +  to_file(Output, stream_tag_to_string(Tag), []),
     to_file(Output, "~s~n", [Buffer]),
     case Tag =/= race of
       true ->
  
positive.code:     false -> ok
    end.
  
  tag_to_filename(standard_io) -> "Standard Output";
  tag_to_filename(standard_error) -> "Standard Error";
  tag_to_filename(race) ->
    separator_string($-) ++
      "~nNew races found";
  tag_to_filename(Filename) when is_list(Filename) ->
    io_lib:format("Text printed to ~s", [Filename]).
  
  interleavings_message(State) ->
    #logger_state{
  
negative.code:           errors = 0                   :: non_neg_integer(),
            graph_data                   :: graph_data() | 'disable',
            interleaving_bound           :: concuerror_options:bound(),
            last_had_errors = false      :: boolean(),
            log_msgs = []                :: [string()],
            output                       :: file:io_device() | 'disable',
            output_name                  :: string(),
  