From 5b897abd5852ef70c389f6872e1947045eb70ab0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 16 Dec 2001 17:23:33 +0000
Subject: [PATCH] .

original commit: fd36a31f094ab61979858d9ad8d1e944ae70acae
---
 collects/net/url-unit.ss | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss
index a3d7b71..3104df9 100644
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@@ -12,6 +12,7 @@
 (module url-unit mzscheme
   (require (lib "file.ss")
            (lib "unitsig.ss")
+	   (lib "thread.ss")
            "url-sig.ss")
   (provide url@)
   
@@ -112,7 +113,7 @@
                               (cons (format "Host: ~a" (url-host url))
                                     strings))))
             (newline client->server)
-            (close-output-port client->server)
+            (tcp-abandon-port client->server)
             server->client)]))
       
       ;; file://get-pure-port : url -> in-port
@@ -159,11 +160,7 @@
       ;; display-pure-port : in-port -> ()
       (define display-pure-port
         (lambda (server->client)
-          (let loop ()
-            (let ((c (read-char server->client)))
-              (unless (eof-object? c)
-                (display c)
-                (loop))))
+	  (copy-port server->client (current-output-port))
           (close-input-port server->client)))
       
       (define empty-url?