Updating code for make and fry changes

[factor.git] / basis / io / servers / connection / connection.factor

diff --git a/basis/io/servers/connection/connection.factor b/basis/io/servers/connection/connection.factor
index f789f7b114b7a9e37ce5095cc5978ae16061448b..7d72659f6df82980540b4681bdbdf8e1078cf5c7 100755 (executable)
--- a/basis/io/servers/connection/connection.factor
+++ b/basis/io/servers/connection/connection.factor
@@ -67,7 +67,7 @@ M: threaded-server handle-client* handler>> call ;
 
 : handle-client ( client remote local -- )
     '[
-        , , log-connection
+        _ _ log-connection
         threaded-server get
         [ timeout>> timeouts ] [ handle-client* ] bi
     ] with-stream ;
@@ -77,7 +77,7 @@ M: threaded-server handle-client* handler>> call ;
 
 : accept-connection ( threaded-server -- )
     [ accept ] [ addr>> ] bi
-    [ '[ , , , handle-client ] ]
+    [ '[ _ _ _ handle-client ] ]
     [ drop threaded-server get name>> swap thread-name ] 2bi
     spawn drop ;