Adding family slot to socket addresses.

A static slot indicating the address family simplifies
code which wants to map a socket address to its
family.

* lisplib.c (sock_instantiate): Call sock_load_init
before loading socket.tl rather than after, because socket.tl
now references variables defined inside sock_load_init.

* share/txr/stdlib/socket.tl (sockaddr, sockaddr-in,
sockaddr-in6, sockaddr-un): New static slot, family.

* txr.1: Documented family slots.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 33f8b9b4..56c97076 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -306,8 +306,8 @@ static val sock_set_entries(val dlt, val fun)
 static val sock_instantiate(val set_fun)
 {
   funcall1(set_fun, nil);
-  load(format(nil, lit("~asocket.tl"), stdlib_path, nao));
   sock_load_init();
+  load(format(nil, lit("~asocket.tl"), stdlib_path, nao));
   return nil;
 }