From 9d4db784eedc37ea7603ba8252dacbbae5ec0ef4 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 12 Nov 2007 01:41:27 -0500 Subject: [PATCH] io.server with-datagrams fix --- extra/io/server/server.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) mode change 100644 => 100755 extra/io/server/server.factor diff --git a/extra/io/server/server.factor b/extra/io/server/server.factor old mode 100644 new mode 100755 index 6b42d1dc8a..6389c2c024 --- a/extra/io/server/server.factor +++ b/extra/io/server/server.factor @@ -80,7 +80,8 @@ SYMBOL: log-stream : datagram-loop ( quot datagram -- ) [ - [ receive dup log-datagram >r swap call r> ] keep send + [ receive dup log-datagram >r swap call r> ] keep + pick [ send ] [ 3drop ] keep ] 2keep datagram-loop ; inline : spawn-datagrams ( quot addrspec -- ) @@ -91,4 +92,4 @@ SYMBOL: log-stream : with-datagrams ( seq service quot -- ) [ [ swap spawn-datagrams ] curry concurrency:parallel-each - ] with-logging ; inline + ] curry with-logging ; inline