summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul A. Patience <paul@apatience.com>2021-09-10 20:58:44 -0400
committerKaz Kylheku <kaz@kylheku.com>2021-09-11 09:27:10 -0700
commit8335ac0f99cfe816afd5be341aae9a1c968deb2c (patch)
tree74174f7c342bc24b21348896fcc321071adb4ef2
parent033d2395431a2d42ab5b127030ac6b1f61347541 (diff)
downloadtxr-8335ac0f99cfe816afd5be341aae9a1c968deb2c.tar.gz
txr-8335ac0f99cfe816afd5be341aae9a1c968deb2c.tar.bz2
txr-8335ac0f99cfe816afd5be341aae9a1c968deb2c.zip
sockets: remove excess apostrophe in sock-peer.
* stdlib/socket.tl (sock-peer): Remove excess apostrophe in getter.
-rw-r--r--stdlib/socket.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/socket.tl b/stdlib/socket.tl
index cb8bef2f..0b39151e 100644
--- a/stdlib/socket.tl
+++ b/stdlib/socket.tl
@@ -269,6 +269,6 @@
(defplace (sock-peer sock) body
(getter setter
- ^(macrolet ((,getter () ^(sock-peer ',',sock))
+ ^(macrolet ((,getter () ^(sock-peer ,',sock))
(,setter (val) ^(sock-set-peer ,',sock ,val)))
,body)))