io.servers.connection: accept-loop doesn't need to be 'inline recursive'

db4
Slava Pestov 2010-01-18 22:23:57 +13:00
parent 637a77c018
commit c4f19bc117
1 changed files with 1 additions and 1 deletions

View File

@ -96,7 +96,7 @@ M: threaded-server handle-client* handler>> call( -- ) ;
[ [ accept-connection ] with-semaphore ]
[ accept-connection ]
if*
] [ accept-loop ] bi ; inline recursive
] [ accept-loop ] bi ;
: started-accept-loop ( threaded-server -- )
threaded-server get