Making with-server take encodings properly

extra/benchmark/sockets/sockets.factor

@@ -1,9 +1,9 @@
-USING: io.sockets io.server io kernel math threads
+USING: io.sockets io.server io kernel math threads io.encodings.ascii
 debugger tools.time prettyprint concurrency.combinators ;
 IN: benchmark.sockets
 
 : simple-server ( -- )
-    7777 local-server "benchmark.sockets" [
+    7777 local-server "benchmark.sockets" ascii [
         read1 CHAR: x = [
             stop-server
         ] [

extra/concurrency/distributed/distributed.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: serialize sequences concurrency.messaging
 threads io io.server qualified arrays
-namespaces kernel ;
+namespaces kernel io.encodings.binary ;
 QUALIFIED: io.sockets
 IN: concurrency.distributed
 
@@ -15,7 +15,7 @@ SYMBOL: local-node ( -- addrspec )
     [
         local-node set-global
         "concurrency.distributed"
-        [ handle-node-client ] with-server
+        binary [ handle-node-client ] with-server
     ] 2curry f spawn drop ;
 
 : start-node ( port -- )

extra/http/server/server.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs kernel namespaces io io.timeouts strings splitting
 threads http http.server.responders sequences prettyprint
-io.server logging calendar ;
+io.server logging calendar io.encodings.latin1 ;
 
 IN: http.server
 
@@ -49,7 +49,7 @@ IN: http.server
 \ parse-request NOTICE add-input-logging
 
 : httpd ( port -- )
-    internet-server "http.server" [
+    internet-server "http.server" latin1 [
         1 minutes stdio get set-timeout
         readln [ parse-request ] when*
     ] with-server ;

extra/io/server/server.factor

@@ -44,12 +44,12 @@ PRIVATE>
 : internet-server ( port -- seq )
     f swap t resolve-host ;
 
-: with-server ( seq service quot -- )
+: with-server ( seq service encoding quot -- )
     V{ } clone [
-        servers [
-            [ server-loop ] curry with-logging
+        swap servers [
+            [ server-loop ] 2curry with-logging
         ] with-variable
-    ] 3curry parallel-each ; inline
+    ] 3curry curry parallel-each ; inline
 
 : stop-server ( -- )
     servers get [ dispose ] each ;

extra/tty-server/tty-server.factor

@@ -1,10 +1,10 @@
-USING: listener io.server ;
+USING: listener io.server io.encodings.utf8 ;
 IN: tty-server
 
 : tty-server ( port -- )
     local-server
     "tty-server"
-    [ listener ] with-server ;
+    utf8 [ listener ] with-server ;
 
 : default-tty-server 9999 tty-server ;