anchor.diff:  
   %%------------------------------------------------------------------------------
   
  -process_options(Options) ->
  -  process_options(Options, []).
  -
  -process_options([], Acc) -> lists:reverse(Acc);
  -process_options([{Key, Value} = Option|Rest], Acc) ->
  +fix_infinities(Options) ->
  +  fix_infinities(Options, []).
  +
  +fix_infinities([], Acc) -> lists:reverse(Acc);
  +fix_infinities([{Key, Value} = Option|Rest], Acc) ->
     case Key of
       MaybeInfinity
         when
  
positive.code:     , fun add_derived_defaults/1
      , fun add_getopt_defaults/1
      , fun group_multiples/1
      , fun process_options/1
      , fun(O) ->
            add_defaults([{Opt, []} || Opt <- groupable()], false, O)
        end
  
negative.code:         end,
        case Value of
          infinity ->
            fix_infinities(Rest, [Option|Acc]);
          -1 ->
            fix_infinities(Rest, [{MaybeInfinity, infinity}|Acc]);
          N when is_integer(N), N >= Limit ->
            fix_infinities(Rest, [Option|Acc]);
          _Else ->
            Error = "The value of '--~s' must be -1 (infinity) or >= ~w",
            opt_error(Error, [Key, Limit], Key)
        end;
      _ ->
        fix_infinities(Rest, [Option|Acc])
    end.
  
  %%------------------------------------------------------------------------------
  