steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix help-lint

db4
Doug Coleman 2008-08-30 15:25:53 -05:00
parent b5cdc637e7
commit 3056a308cb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/servers/connection/connection.factor
View File

@ -41,7 +41,7 @@ ready ;
SYMBOL: remote-address SYMBOL: remote-address
GENERIC: handle-client* ( server -- ) GENERIC: handle-client* ( threaded-server -- )
<PRIVATE <PRIVATE
@ -75,13 +75,13 @@ M: threaded-server handle-client* handler>> call ;
: thread-name ( server-name addrspec -- string ) : thread-name ( server-name addrspec -- string )
unparse " connection from " swap 3append ; unparse " connection from " swap 3append ;
: accept-connection ( server -- ) : accept-connection ( threaded-server -- )
[ accept ] [ addr>> ] bi [ accept ] [ addr>> ] bi
[ '[ , , , handle-client ] ] [ '[ , , , handle-client ] ]
[ drop threaded-server get name>> swap thread-name ] 2bi [ drop threaded-server get name>> swap thread-name ] 2bi
spawn drop ; spawn drop ;
: accept-loop ( server -- ) : accept-loop ( threaded-server -- )
[ [
threaded-server get semaphore>> threaded-server get semaphore>>
[ [ accept-connection ] with-semaphore ] [ [ accept-connection ] with-semaphore ]
@ -89,7 +89,7 @@ M: threaded-server handle-client* handler>> call ;
if* if*
] [ accept-loop ] bi ; inline recursive ] [ accept-loop ] bi ; inline recursive
: started-accept-loop ( server -- ) : started-accept-loop ( threaded-server -- )
threaded-server get threaded-server get
[ sockets>> push ] [ ready>> raise-flag ] bi ; [ sockets>> push ] [ ready>> raise-flag ] bi ;