From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Jun 2003 03:36:11 +0000 (+0000)
Subject: Fix bug: OPEN-TCP-SERVER-SOCKET was not returning a boolean to
X-Git-Tag: 20090517-FFI~1894
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d53bc94acb929379c89122b00a18f25f36238a31;p=mit-scheme.git

Fix bug: OPEN-TCP-SERVER-SOCKET was not returning a boolean to
OPEN-CHANNEL.
---

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)