change ERROR: words from throw-foo back to foo.

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

diff --git a/basis/io/servers/servers.factor b/basis/io/servers/servers.factor
index 733298f3757d44bc2477371ffa81e6ef8a74ec10..14d764508975f830ad330ce610ae43997655cfa2 100755 (executable)
--- a/basis/io/servers/servers.factor
+++ b/basis/io/servers/servers.factor
@@ -34,10 +34,10 @@ ERROR: server-already-running threaded-server ;
 <PRIVATE
 
 : must-be-running ( threaded-server -- threaded-server )
-    dup running-servers get in? [ throw-server-not-running ] unless ;
+    dup running-servers get in? [ server-not-running ] unless ;
 
 : must-not-be-running ( threaded-server -- threaded-server )
-    dup running-servers get in? [ throw-server-already-running ] when ;
+    dup running-servers get in? [ server-already-running ] when ;
 
 : add-running-server ( threaded-server -- )
     must-not-be-running