.

original commit: 1d5fe689e3ade50052193439163382bbc4135aa0

collects/net/sendurl.ss

@@ -65,13 +65,14 @@
   
   ; null-input : iport
   (define null-input
-    (make-input-port (lambda () eof)
+    (make-custom-input-port #f
-                     (lambda () #t)
+			    (lambda (s) eof)
-                     void))
+			    #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