Working on I/O

extra/io/encodings/8-bit/8-bit.factor

@@ -37,8 +37,7 @@ IN: io.encodings.8-bit
     2dup swap length <= [ tail ] [ drop ] if ;
 
 : process-contents ( lines -- assoc )
-    [ "#" split1 drop ] map
-    [ empty? not ] filter
+    [ "#" split1 drop ] map harvest
     [ "\t" split 2 head [ 2 tail-if hex> ] map ] map ;
 
 : byte>ch ( assoc -- array )

extra/io/sockets/sockets-docs.factor

@@ -1,5 +1,5 @@
 USING: help.markup help.syntax io io.backend threads
-strings byte-arrays continuations ;
+strings byte-arrays continuations quotations ;
 IN: io.sockets
 
 ARTICLE: "network-addressing" "Address specifiers"

extra/io/sockets/sockets.factor

@@ -239,7 +239,7 @@ HOOK: (send) io-backend ( packet addrspec datagram -- )
 : parse-addrinfo-list ( addrinfo -- seq )
     [ addrinfo-next ] follow
     [ addrinfo>addrspec ] map
-    [ ] filter ;
+    sift ;
 
 : prepare-resolve-host ( host serv passive? -- host' serv' flags )
     #! If the port is a number, we resolve for 'http' then