From 30a88bbde181cbc6f66e7646591bb1582756ce06 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Fri, 10 Sep 2021 20:58:44 -0400
Subject: sockets: remove excess apostrophe in sock-peer.

* stdlib/socket.tl (sock-peer): Remove excess apostrophe in
getter.
---
 stdlib/socket.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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