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 5d3ad3a79695f5c1cda5d0d23364c7a9562782da..6b8d14fead504f8d391220c82288e68a7f150b1e 100644 (file)
--- 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)