From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 11 Aug 2017 20:44:28 +0000 (-0500)
Subject: Remove stray `pk' from web.scm.
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=14a5e83316eb2b48eeda2282a21f7cde06937e84

Remove stray `pk' from web.scm.

* 8sync/systems/web.scm (web-server-socket-loop): Remove stray `pk'.
---

diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm
index 5d3ad3a..6b8d14f 100644
--- a/8sync/systems/web.scm
+++ b/8sync/systems/web.scm
@@ -126,7 +126,6 @@ as we're alive."
      (while #t
        (match (accept (.socket web-server))
          ((client . sockaddr)
-          (pk 'a-client client sockaddr)
           ;; From "HOP, A Fast Server for the Diffuse Web", Serrano.
           (setsockopt client SOL_SOCKET SO_SNDBUF (* 12 1024))
           (set-nonblocking! client)