Bootstrap fix and little cleanup

TODO.FACTOR.txt

@@ -30,3 +30,4 @@
 - 0.0/0.0 next-power-of-2 never terminates -- comparison always returns false
 - 0.0/0.0 >fixnum .  -> 0    0.0/0.0 >bignum .  -> 0
 
+- httpd crash

library/collections/tree-each.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2006 Slava Pestov.
 ! See http://factor.sf.net/license.txt for BSD license.
 IN: sequences
-USING: generic kernel lists strings ;
+USING: generic kernel lists strings sequences-internals ;
 
 G: tree-each* ( obj quot -- | quot: elt -- )
     [ over ] standard-combination ; inline

library/unix/sockets.factor

@@ -26,9 +26,7 @@ threads unix-internals ;
 
 : with-socket-fd ( quot -- fd | quot: socket -- n )
     socket-fd [ swap call ] keep  swap 0 < [
-        err_no EINPROGRESS = [
-            dup close -1 io-error
-        ] unless
+        err_no EINPROGRESS = [ dup close (io-error) ] unless
     ] when ; inline
 
 : client-socket ( host port -- fd )