Bootstrap fix and little cleanup
parent
ebcac67995
commit
130a5a5962
|
@ -30,3 +30,4 @@
|
||||||
- 0.0/0.0 next-power-of-2 never terminates -- comparison always returns false
|
- 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
|
- 0.0/0.0 >fixnum . -> 0 0.0/0.0 >bignum . -> 0
|
||||||
|
|
||||||
|
- httpd crash
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2005, 2006 Slava Pestov.
|
! Copyright (C) 2005, 2006 Slava Pestov.
|
||||||
! See http://factor.sf.net/license.txt for BSD license.
|
! See http://factor.sf.net/license.txt for BSD license.
|
||||||
IN: sequences
|
IN: sequences
|
||||||
USING: generic kernel lists strings ;
|
USING: generic kernel lists strings sequences-internals ;
|
||||||
|
|
||||||
G: tree-each* ( obj quot -- | quot: elt -- )
|
G: tree-each* ( obj quot -- | quot: elt -- )
|
||||||
[ over ] standard-combination ; inline
|
[ over ] standard-combination ; inline
|
||||||
|
|
|
@ -26,9 +26,7 @@ threads unix-internals ;
|
||||||
|
|
||||||
: with-socket-fd ( quot -- fd | quot: socket -- n )
|
: with-socket-fd ( quot -- fd | quot: socket -- n )
|
||||||
socket-fd [ swap call ] keep swap 0 < [
|
socket-fd [ swap call ] keep swap 0 < [
|
||||||
err_no EINPROGRESS = [
|
err_no EINPROGRESS = [ dup close (io-error) ] unless
|
||||||
dup close -1 io-error
|
|
||||||
] unless
|
|
||||||
] when ; inline
|
] when ; inline
|
||||||
|
|
||||||
: client-socket ( host port -- fd )
|
: client-socket ( host port -- fd )
|
||||||
|
|
Loading…
Reference in New Issue