Use newly-extended OPEN-TCP-STREAM-SOCKET.

diff --git a/v7/src/edwin/nntp.scm b/v7/src/edwin/nntp.scm
index 8a2096f55ed3bfd753ec48daf5189f7063b30638..68bfebcb839b5f63748eb457934c1cacc9125dfb 100644 (file)
--- a/v7/src/edwin/nntp.scm
+++ b/v7/src/edwin/nntp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: nntp.scm,v 1.14 1997/03/31 20:54:59 cph Exp $
+;;;    $Id: nntp.scm,v 1.15 1997/11/01 19:33:58 cph Exp $
 ;;;
 ;;;    Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -78,12 +78,9 @@
                        "... ")))
     (message msg)
     (let ((port
-          (let ((channel
-                 (open-tcp-stream-socket-channel
-                  (nntp-connection:server connection)
-                  "nntp"))
-                (size nntp-socket-buffer-size))
-            (make-generic-i/o-port channel channel size size "\r\n"))))
+          (open-tcp-stream-socket (nntp-connection:server connection)
+                                  "nntp"
+                                  nntp-socket-buffer-size)))
       (set-nntp-connection:port! connection port)
       (set-nntp-connection:banner! connection (input-port/read-line port)))
     (set-nntp-connection:current-group! connection #f)