From d53bc94acb929379c89122b00a18f25f36238a31 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Jun 2003 03:36:11 +0000
Subject: [PATCH] Fix bug: OPEN-TCP-SERVER-SOCKET was not returning a boolean
 to OPEN-CHANNEL.

---
 v7/src/runtime/socket.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index e20a72349..f998ba27e 100644
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.21 2003/02/14 18:28:34 cph Exp $
+$Id: socket.scm,v 1.22 2003/06/08 03:36:11 cph Exp $
 
 Copyright 1996,1997,1998,1999,2001,2002 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -77,7 +77,8 @@ USA.
 		((ucode-primitive host-address-any 0))
 		host)
 	    (tcp-service->port service))
-	   ((ucode-primitive listen-tcp-server-socket 1) channel)))))))
+	   ((ucode-primitive listen-tcp-server-socket 1) channel))
+	 #t)))))
 
 (define (tcp-service->port service)
   (if (exact-nonnegative-integer? service)
-- 
2.25.1