basis: ERROR: changes.

[factor.git] / basis / io / servers / servers.factor

diff --git a/basis/io/servers/servers.factor b/basis/io/servers/servers.factor
index ccdd15b2ea4f1b8a60ac5228b36c804d96a77c6b..733298f3757d44bc2477371ffa81e6ef8a74ec10 100755 (executable)
--- a/basis/io/servers/servers.factor
+++ b/basis/io/servers/servers.factor
@@ -27,17 +27,17 @@ secure-context ;
 SYMBOL: running-servers
 running-servers [ HS{ } clone ] initialize
 
-ERROR: server-already-running threaded-server ;
-
 ERROR: server-not-running threaded-server ;
 
+ERROR: server-already-running threaded-server ;
+
 <PRIVATE
 
 : must-be-running ( threaded-server -- threaded-server )
-    dup running-servers get in? [ server-not-running ] unless ;
+    dup running-servers get in? [ throw-server-not-running ] unless ;
 
 : must-not-be-running ( threaded-server -- threaded-server )
-    dup running-servers get in? [ server-already-running ] when ;
+    dup running-servers get in? [ throw-server-already-running ] when ;
 
 : add-running-server ( threaded-server -- )
     must-not-be-running