Change OPEN-TCP-STREAM-SOCKET and OPEN-UNIX-STREAM-SOCKET to return

one port instead of two, and to allow optional arguments to specify
the buffer size and line translation.  Increase the default buffer
size to 4096 bytes.

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index 5c8736bc1f0c17bd319dc4310c17c71db5c69a83..078597cac950c6ec58c6d86d1deefb8b24da79b1 100644 (file)
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.10 1997/11/01 19:19:39 cph Exp $
+$Id: socket.scm,v 1.11 1997/11/01 19:21:16 cph Exp $
 
 Copyright (c) 1990-97 Massachusetts Institute of Technology
 
@@ -49,7 +49,7 @@ MIT in each case. |#
               (if (default-object? buffer-size) #f buffer-size)
               (if (default-object? line-translation) #f line-translation)))
 
-(define (socket-ports channel buffer-size line-translation)
+(define (socket-port channel buffer-size line-translation)
   (let ((buffer-size (or buffer-size 4096))
        (line-translation (or line-translation 'DEFAULT)))
     (make-generic-i/o-port channel channel