Commit 749fe7a9 authored by David Byers's avatar David Byers
Browse files

Fixed accept-async in startup

parent 647ac0c3
......@@ -270,9 +270,9 @@ CONNECT %s:%d HTTP/1.0\r\n\
(defun lyskom-accept-async ()
(let ((res (blocking-do 'accept-async '(5 7 8 9 11 12 13 14 15 16 17 18))))
(when (and (null res)
(eq 50 lyskom-errno))
(let* ((res (blocking-do 'accept-async '(5 7 8 9 11 12 13 14 15 16 17 18)))
(ans (blocking-do 'query-async)))
(unless (memq 15 (listify-vector ans))
(blocking-do 'accept-async '(0 5 7 8 9 11 12 13 14 16 17 18)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment