Changeset 15568 in project


Ignore:
Timestamp:
08/25/09 18:26:02 (10 years ago)
Author:
sjamaan
Message:

Simplify request creation a little

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r15567 r15568  
    435435                    ((string? uri-or-request) (uri-reference uri-or-request))
    436436                    (else (request-uri uri-or-request))))
    437          (req (if (request? uri-or-request)
    438                   uri-or-request
    439                   (make-request uri: uri)))
    440437         (req (if postdata
    441438                  (update-request
    442                    req
     439                   (if (request? uri-or-request)
     440                       uri-or-request
     441                       (make-request uri: uri))
    443442                   headers: (headers
    444443                             `((content-length ,(string-length postdata))
Note: See TracChangeset for help on using the changeset viewer.