diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-03-31 06:37:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-03-31 06:37:52 -0700 |
| commit | b8e5ade6282798f705bf417fc5d92fcdd811de98 (patch) | |
| tree | 096c4a891ff96dde95484c5f633a068c073e5ce9 | |
| parent | 79d7f2f9dad61f8e8af64984183c01a210ba5350 (diff) | |
| download | txr-b8e5ade6282798f705bf417fc5d92fcdd811de98.tar.gz txr-b8e5ade6282798f705bf417fc5d92fcdd811de98.tar.bz2 txr-b8e5ade6282798f705bf417fc5d92fcdd811de98.zip | |
Expose sock-set-peer function.
* stream.c (stream_init): Register sock-set-peer intrinsic.
| -rw-r--r-- | stream.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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)); |