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

[factor.git] / extra / benchmark / tcp-echo0 / tcp-echo0.factor

diff --git a/extra/benchmark/tcp-echo0/tcp-echo0.factor b/extra/benchmark/tcp-echo0/tcp-echo0.factor
index 05a7066bde42f6d5041fabe39006f091d2635978..60500b3aa8de307f00aa3fda0a28524b0069c60a 100644 (file)
--- a/extra/benchmark/tcp-echo0/tcp-echo0.factor
+++ b/extra/benchmark/tcp-echo0/tcp-echo0.factor
@@ -21,7 +21,7 @@ TUPLE: tcp-echo < threaded-server #times #bytes ;
 ERROR: incorrect-#bytes ;
 
 : check-bytes ( bytes n -- bytes )
-    over length = [ throw-incorrect-#bytes ] unless ;
+    over length = [ incorrect-#bytes ] unless ;
 
 : read-n ( n -- bytes )
     [ read ] [ check-bytes ] bi ;
@@ -46,7 +46,7 @@ M: tcp-echo handle-client*
     <tcp-echo> [
         \ threaded-server get server>address binary [
             #times [ #bytes read-write ] times
-            contents empty? [ throw-incorrect-#bytes ] unless
+            contents empty? [ incorrect-#bytes ] unless
         ] with-client
     ] with-threaded-server ;