diff options
Diffstat (limited to 'stdlib/socket.tl')
| -rw-r--r-- | stdlib/socket.tl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/stdlib/socket.tl b/stdlib/socket.tl index 0b39151e..eac123be 100644 --- a/stdlib/socket.tl +++ b/stdlib/socket.tl @@ -272,3 +272,10 @@ ^(macrolet ((,getter () ^(sock-peer ,',sock)) (,setter (val) ^(sock-set-peer ,',sock ,val))) ,body))) + +(defplace (sock-opt sock level option : type) body + (getter setter + ^(macrolet ((,getter () ^(sock-opt ,',sock ,',level ,',option ,',type)) + (,setter (val) + ^(sock-set-opt ,',sock ,',level ,',option ,val ,',type))) + ,body))) |