anchor.diff:  trimr(String) ->
       string:trim(String, trailing).
   -else.
  -trimr(String)
  -    when is_list(String) ->
  -    string:strip(String, right);
  -trimr(String)
  -    when is_binary(String) ->
  -    erlang:list_to_binary(string:strip(erlang:binary_to_list(String),
  -                                       right)).
  +trimr(String) ->
  +    trimr(?WHITESPACE, String).
   -endif.
   
   %%-------------------------------------------------------------------------
  
positive.code: triml(String) ->
      string:trim(String, leading).
  -else.
  triml(String)
      when is_list(String) ->
      string:strip(String, left);
  triml(String)
      when is_binary(String) ->
      erlang:list_to_binary(string:strip(erlang:binary_to_list(String),
                                         left)).
  -endif.
  
  %%-------------------------------------------------------------------------
  
negative.code: trim(String) ->
      string:trim(String).
  -else.
  trim(String) ->
      trim(?WHITESPACE, String).
  -endif.
  
  %%-------------------------------------------------------------------------
  