From b8e5ade6282798f705bf417fc5d92fcdd811de98 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 31 Mar 2016 06:37:52 -0700 Subject: Expose sock-set-peer function. * stream.c (stream_init): Register sock-set-peer intrinsic. --- stream.c | 1 + 1 file changed, 1 insertion(+) diff --git a/stream.c b/stream.c index dfab164a..1f6a6bde 100644 --- a/stream.c +++ b/stream.c @@ -3832,6 +3832,7 @@ void stream_init(void) reg_fun(intern(lit("sock-family"), user_package), func_n1(sock_family)); reg_fun(intern(lit("sock-type"), user_package), func_n1(sock_type)); reg_fun(intern(lit("sock-peer"), user_package), func_n1(sock_peer)); + reg_fun(intern(lit("sock-set-peer"), user_package), func_n2(sock_set_peer)); #endif reg_fun(intern(lit("make-catenated-stream"), user_package), func_n0v(make_catenated_stream_v)); reg_fun(intern(lit("cat-streams"), user_package), func_n1(make_catenated_stream)); -- cgit v1.2.3