From b98f4c13cecba74da00770a1b3c48b28534d11dc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 21 Sep 2010 00:20:44 -0500 Subject: [PATCH] Let the server start before trying to clean it up --- basis/io/servers/connection/connection.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/io/servers/connection/connection.factor b/basis/io/servers/connection/connection.factor index e16f94e505..861a621de4 100644 --- a/basis/io/servers/connection/connection.factor +++ b/basis/io/servers/connection/connection.factor @@ -44,7 +44,7 @@ ERROR: server-not-running threaded-server ; running-servers get adjoin ; : remove-running-server ( threaded-server -- ) - ! must-be-running + must-be-running running-servers get delete ; PRIVATE> @@ -210,9 +210,9 @@ PRIVATE> server-stopped>> wait-for-flag ; : with-threaded-server ( threaded-server quot -- ) - over + [ start-server ] dip over '[ - [ _ start-server threaded-server _ with-variable ] + [ _ threaded-server _ with-variable ] [ _ stop-server ] [ ] cleanup ] call ; inline