From 999e481785b6f6056062fcf9938c73d16c744c37 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 1 Feb 2012 21:51:41 -0500 Subject: [PATCH] Fix apparent bug. In the new-ish code for following redirections, the `strings' argument wasn't passed along as it did before. --- collects/net/url.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/net/url.rkt b/collects/net/url.rkt index 0a9e41adb3..13a8f92240 100644 --- 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 '()])