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

Let the server start before trying to clean it up

db4
Doug Coleman 2010-09-21 00:20:44 -05:00
parent 1f366c8b1d
commit b98f4c13ce
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,7 +44,7 @@ ERROR: server-not-running threaded-server ;
running-servers get adjoin ; running-servers get adjoin ;
: remove-running-server ( threaded-server -- ) : remove-running-server ( threaded-server -- )
! must-be-running must-be-running
running-servers get delete ; running-servers get delete ;
PRIVATE> PRIVATE>
@ -210,9 +210,9 @@ PRIVATE>
server-stopped>> wait-for-flag ; server-stopped>> wait-for-flag ;
: with-threaded-server ( threaded-server quot -- ) : with-threaded-server ( threaded-server quot -- )
over [ start-server ] dip over
'[ '[
[ _ start-server threaded-server _ with-variable ] [ _ threaded-server _ with-variable ]
[ _ stop-server ] [ _ stop-server ]
[ ] cleanup [ ] cleanup
] call ; inline ] call ; inline