From 26a40d623667c1ab7aca49667c59ba53a9590467 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 26 Jul 1999 21:20:44 +0000 Subject: [PATCH] Change TCP-SERVER-CONNECTION-ACCEPT to return two values rather than three. --- v7/src/runtime/socket.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm index 35fba792d..138f216df 100644 --- a/v7/src/runtime/socket.scm +++ b/v7/src/runtime/socket.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: socket.scm,v 1.13 1999/01/02 06:19:10 cph Exp $ +$Id: socket.scm,v 1.14 1999/07/26 21:20:44 cph Exp $ Copyright (c) 1990-1999 Massachusetts Institute of Technology @@ -103,5 +103,5 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. p))))))))) (if channel (let ((port (make-generic-i/o-port channel channel 64 64))) - (values port port peer-address)) - (values false false false))))) \ No newline at end of file + (values port peer-address)) + (values #f #f))))) \ No newline at end of file -- 2.25.1