anchor.diff:  parse_form_file({body, Data}, {Name, Handler}, FileHandler, State) ->
       H1 = Handler(Data),
       fun (Next) -> parse_form_file(Next, {Name, H1}, FileHandler, State) end.
  +
  +default_file_handler(Filename, ContentType) ->
  +    default_file_handler_1(Filename, ContentType, []).
  +
  +default_file_handler_1(Filename, ContentType, Acc) ->
  +    fun(eof) ->
  +            Value = iolist_to_binary(lists:reverse(Acc)),
  +            {Filename, ContentType, Value};
  +       (Next) ->
  +            default_file_handler_1(Filename, ContentType, [Next | Acc])
  +    end.
   
   parse_multipart_request(Req, Callback) ->
       %% TODO: Support chunked?
  
positive.code: -record(mp, {state, boundary, length, buffer, callback, req}).
  
  %% TODO: DOCUMENT THIS MODULE.
  
  parse_form(Req, FileHandler) ->
      Callback = fun (Next) -> parse_form_outer(Next, FileHandler, []) end,
  
negative.code:     ok = with_socket_server(ServerFun, ClientFun),
      ok.
  
  test_parse_form() ->
      ContentType = "multipart/form-data; boundary=AaB03x",
      "AaB03x" = get_boundary(ContentType),
  