From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Jul 2003 22:28:18 +0000 (+0000)
Subject: Fix typo in last change.
X-Git-Tag: 20090517-FFI~1881
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c7e8b52949d006c72b23495d43a204a531b0fc6;p=mit-scheme.git

Fix typo in last change.
---

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index 9db1ac97f..cc192e62a 100644
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.23 2003/07/09 04:26:50 cph Exp $
+$Id: socket.scm,v 1.24 2003/07/09 22:28:18 cph Exp $
 
 Copyright 1996,1997,1998,1999,2001,2002 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -71,7 +71,8 @@ USA.
 			    (if (or (default-object? host) (not host))
 				((ucode-primitive host-address-any 0))
 				host))
-    (listen-tcp-server-socket server-socket)))
+    (listen-tcp-server-socket server-socket)
+    server-socket))
 
 (define (create-tcp-server-socket)
   (open-channel