From f2e0e0bfeb38fbc9b1c7b781e829ab27284d8c46 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 2 Aug 2012 06:54:25 -0600 Subject: [PATCH] get-port-port/headers should not remove status line --- 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 a581e192e0..d8042d997a 100644 --- a/collects/net/url.rkt +++ b/collects/net/url.rkt @@ -251,7 +251,7 @@ (close-input-port ip))) (values in-pipe (apply string-append (map (λ (x) (string-append x "\r\n")) - (reverse headers))))]))) + (cons status (reverse headers)))))]))) ;; get-pure-port : url [x list (str)] -> in-port (define (get-pure-port url [strings '()] #:redirections [redirections 0])