diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-03-31 06:41:42 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-03-31 06:41:42 -0700 |
| commit | 98b26ff13eeb8a9f730801720c4cba30eba9e61d (patch) | |
| tree | ee6cf357769019f64b887e6968b579702f6be2e0 /share | |
| parent | 7c3a6b3991a9b57377087c18375f60d68512b17e (diff) | |
| download | txr-98b26ff13eeb8a9f730801720c4cba30eba9e61d.tar.gz txr-98b26ff13eeb8a9f730801720c4cba30eba9e61d.tar.bz2 txr-98b26ff13eeb8a9f730801720c4cba30eba9e61d.zip | |
Define a sock-peer syntactic place.
* share/txr/stdlib/socket.tl (sock-peer): Syntactic
place defined, allowing (set (sock-peer sock) addr).
* txr.1: Documented sock-peer as accessor and sock-set-peer.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/socket.tl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/share/txr/stdlib/socket.tl b/share/txr/stdlib/socket.tl index 1c54c6eb..b6ad135e 100644 --- a/share/txr/stdlib/socket.tl +++ b/share/txr/stdlib/socket.tl @@ -142,3 +142,9 @@ (cand-prefix [pieces 0..(trunc (+ w 15) 16)]) (prefix (if (search cand-prefix '(0 0)) pieces cand-prefix))) `@(sys:in6addr-condensed-text prefix)/@(or width w)`)))) + +(defplace (sock-peer sock) body + (getter setter + ^(macrolet ((,getter () ^(sock-peer ',',sock)) + (,setter (val) ^(sock-set-peer ,',sock ,val))) + ,body))) |