Fix apparent bug.

In the new-ish code for following redirections, the `strings' argument wasn't passed along as it did before.
2012-02-01 21:51:41 -05:00 · 2012-02-01 21:51:41 -05:00 · 999e481785
commit 999e481785
parent 76ab851d2a
1 changed files with 1 additions and 1 deletions
--- a/collects/net/url.rkt
+++ b/collects/net/url.rkt
@ -209,7 +209,7 @@
 (define (get-pure-port/headers url [strings '()] #:redirections [redirections 0])
  (let redirection-loop ([redirections redirections] [url url])
    (define ip
-      (http://getpost-impure-port #t url #f '()))
+      (http://getpost-impure-port #t url #f strings))
    (define status (read-line ip 'return-linefeed))
    (define-values (new-url chunked? headers)
      (let loop ([new-url #f] [chunked? #f] [headers '()])