From 7e98d6870f1360ec4200ae9145a383877eecdd81 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 1 Nov 1997 19:21:16 +0000 Subject: [PATCH] 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. --- v7/src/runtime/socket.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm index 5c8736bc1..078597cac 100644 --- 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 -- 2.25.1