From 98b26ff13eeb8a9f730801720c4cba30eba9e61d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 31 Mar 2016 06:41:42 -0700
Subject: 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.
---
 share/txr/stdlib/socket.tl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'share')

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)))
-- 
cgit v1.2.3