From 14a5e83316eb2b48eeda2282a21f7cde06937e84 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 11 Aug 2017 15:44:28 -0500 Subject: [PATCH] Remove stray `pk' from web.scm. * 8sync/systems/web.scm (web-server-socket-loop): Remove stray `pk'. --- 8sync/systems/web.scm | 1 - 1 file changed, 1 deletion(-) 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) -- 2.31.1