From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 13 Nov 1990 19:21:46 +0000 (+0000)
Subject: Export CLOSE-TCP-SERVER-SOCKET to initial environment.
X-Git-Tag: 20090517-FFI~11075
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6d489bf97439ca5faaf718e6dacb5d5010ba34a4;p=mit-scheme.git

Export CLOSE-TCP-SERVER-SOCKET to initial environment.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 13542a61a..46c03dc55 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.83 1990/11/09 08:44:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.84 1990/11/13 19:21:46 arthur Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1827,6 +1827,7 @@ MIT in each case. |#
   (files "socket")
   (parent ())
   (export ()
+	  close-tcp-server-socket
 	  open-tcp-server-socket
 	  open-tcp-stream-socket
 	  open-unix-stream-socket
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 023f8d37e..e7858c1e4 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.83 1990/11/09 08:44:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.84 1990/11/13 19:21:46 arthur Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1827,6 +1827,7 @@ MIT in each case. |#
   (files "socket")
   (parent ())
   (export ()
+	  close-tcp-server-socket
 	  open-tcp-server-socket
 	  open-tcp-stream-socket
 	  open-unix-stream-socket