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

[factor.git] / extra / managed-server / managed-server.factor

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index 3a0b4ad774468fde3d512525243bede3d45894aa..b7a73c48320deaac87d6e2bfd60695c8728f0c88 100644 (file)
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@@ -21,7 +21,7 @@ HOOK: handle-client-disconnect managed-server ( -- )
 
 ERROR: already-logged-in username ;
 
-M: managed-server handle-already-logged-in throw-already-logged-in ;
+M: managed-server handle-already-logged-in already-logged-in ;
 M: managed-server handle-client-join ;
 M: managed-server handle-client-disconnect ;
 
@@ -44,7 +44,7 @@ ERROR: no-such-client username ;
 PRIVATE>
 
 : send-client ( seq username -- )
-    clients ?at [ throw-no-such-client ] [ (send-client) ] if ;
+    clients ?at [ no-such-client ] [ (send-client) ] if ;
 
 : send-everyone ( seq -- )
     [ client-streams ] dip '[ _ (send-client) ] each ;