Make open_socket static and register in socket.c.

* lisplib.c (sock_set_entries): Add auto-load entry
for open-socket.

* socket.c (open_socket): Change to static.
(sock_load_init): Register open-socket intrinsic
here rather than in stream.c.

* stream.c (stream_init): Remove registration of
open-socket intrinsic.

* stream.h (open_socket): Declaration removed.

1 files changed, 0 insertions, 3 deletions

diff --git a/stream.c b/stream.c
index 31cff28d..45609677 100644
--- a/stream.c
+++ b/stream.c
@@ -3856,9 +3856,6 @@ void stream_init(void)
   reg_fun(intern(lit("open-directory"), user_package), func_n1(open_directory));
   reg_fun(intern(lit("open-file"), user_package), func_n2o(open_file, 1));
   reg_fun(intern(lit("open-fileno"), user_package), func_n2o(open_fileno, 1));
-#ifdef HAVE_SOCKETS
-  reg_fun(intern(lit("open-socket"), user_package), func_n3o(open_socket, 2));
-#endif
   reg_fun(intern(lit("open-tail"), user_package), func_n3o(open_tail, 1));
   reg_fun(intern(lit("open-command"), user_package), func_n2o(open_command, 1));
   reg_fun(intern(lit("open-pipe"), user_package), func_n2(open_command));