projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
websocket: Ping client occasionally to prevent timeoiuts.
[8sync.git]
/
8sync
/
systems
/
web.scm
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)