From b6429f88a704d95252456182e8dd50cbc945a561 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 21 Apr 2002 15:49:52 +0000
Subject: [PATCH] .

original commit: 1d5fe689e3ade50052193439163382bbc4135aa0
---
 collects/net/sendurl.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 42a0178f42..7e0142716f 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -65,13 +65,14 @@
   
   ; null-input : iport
   (define null-input
-    (make-input-port (lambda () eof)
-                     (lambda () #t)
-                     void))
+    (make-custom-input-port #f
+			    (lambda (s) eof)
+			    #f
+			    void))
   
   ; null-output : oport
   (define null-output
-    (make-output-port void void))
+    (make-custom-output-port #f (lambda (s start end flush?) (- end start)) void void))
   
   (define dev-null "/dev/null") ; unix specific, so slashes are okay