X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fweb.scm;h=6b8d14fead504f8d391220c82288e68a7f150b1e;hp=5d3ad3a79695f5c1cda5d0d23364c7a9562782da;hb=14a5e83316eb2b48eeda2282a21f7cde06937e84;hpb=5b14912b0f727252f4701c3fe4cb742e4192457b 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)