Better logging

db4
Slava Pestov 2008-09-08 01:10:25 -05:00
parent 59623414b6
commit 63d45679c9
1 changed files with 1 additions and 1 deletions

View File

@ -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