anchor.diff:            _              -> [Match|Acc0]
           end,
         {true, Rest, Acc}
  -
     end.
   
   replace(_Old, New, [])     -> [New];
  
positive.code:      parse_shorts(T, State, [Opt#option{value = Value}|Acc]);
     [Opt] when Opt#option.argcount == 1 ->
       {Value, Rest} = get_value_shorts(H, T, State),
       {[Opt#option{value = Value}], Rest}
   end.
  
  add_option(State, Option) ->
  
negative.code:     ",
    ?assertEqual([{"-a", true}, {"-m", undefined}], docopt(D, "-a")).
  
  options_with_trailing_argument_test() ->
    D = "usage: prog [options]
  
      -b       B
      -a       A
      -z <zs>  Z
  
      ",
    ?assertEqual([{"-a", true}, {"-b", true}, {"-z", "ar"}], docopt(D, "-bazar")).
  
  %%%_* Emacs ===================================================================
  %%% Local Variables:
  %%% allout-layout: t
  