Changeset 15565 in project


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

Also allow raw POSTdata string as argument to call-with-input-request

File:
1 edited

Legend:

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

    r15556 r15565  
    371371(define (call-with-input-request uri-or-request writer reader)
    372372  ;; "writer" is an alist to be encoded as form?
    373   (let* ((postdata (and (list? writer) (form-urlencode writer separator: "&")))
     373  (let* ((postdata (or (and (string? writer) writer)
     374                       (and (list? writer)
     375                            (form-urlencode writer separator: "&"))))
    374376         (writer (if writer
    375377                     (if postdata
Note: See TracChangeset for help on using the changeset viewer.