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

[factor.git] / extra / memcached / memcached.factor

diff --git a/extra/memcached/memcached.factor b/extra/memcached/memcached.factor
index 5561fdad9c43d1aaad560cc6722767d73633235d..8ff2a03de3499dbeec1b8621d756bc13f833a8dc 100644 (file)
--- a/extra/memcached/memcached.factor
+++ b/extra/memcached/memcached.factor
@@ -112,14 +112,14 @@ TUPLE: request cmd key val extra opaque cas ;
 
 : check-status ( header -- )
     [ 5 ] dip nth {
-        { NOT_FOUND    [ throw-key-not-found     ] }
-        { EXISTS       [ throw-key-exists        ] }
-        { TOO_LARGE    [ throw-value-too-large   ] }
-        { INVALID_ARGS [ throw-invalid-arguments ] }
-        { NOT_STORED   [ throw-item-not-stored   ] }
-        { NOT_NUMERIC  [ throw-value-not-numeric ] }
-        { UNKNOWN_CMD  [ throw-unknown-command   ] }
-        { MEMORY       [ throw-out-of-memory     ] }
+        { NOT_FOUND    [ key-not-found     ] }
+        { EXISTS       [ key-exists        ] }
+        { TOO_LARGE    [ value-too-large   ] }
+        { INVALID_ARGS [ invalid-arguments ] }
+        { NOT_STORED   [ item-not-stored   ] }
+        { NOT_NUMERIC  [ value-not-numeric ] }
+        { UNKNOWN_CMD  [ unknown-command   ] }
+        { MEMORY       [ out-of-memory     ] }
         [ drop ]
     } case ;