Better logging
parent
59623414b6
commit
63d45679c9
|
@ -73,7 +73,7 @@ M: threaded-server handle-client* handler>> call ;
|
||||||
] with-stream ;
|
] with-stream ;
|
||||||
|
|
||||||
: thread-name ( server-name addrspec -- string )
|
: thread-name ( server-name addrspec -- string )
|
||||||
unparse " connection from " swap 3append ;
|
unparse-short " connection from " swap 3append ;
|
||||||
|
|
||||||
: accept-connection ( threaded-server -- )
|
: accept-connection ( threaded-server -- )
|
||||||
[ accept ] [ addr>> ] bi
|
[ accept ] [ addr>> ] bi
|
||||||
|
|
Loading…
Reference in New Issue