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

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 13542a61a23655d26690f68bcd11082e0745cc4f..46c03dc557ea772eaa7fa3575fa905bc04f1f5a8 100644 (file)
--- 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 023f8d37efcf01b50ae750d06f0a8e5808e2a9bc..e7858c1e49e6f2cf31dd1ee299a7044ce16247ff 100644 (file)
--- 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