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

[factor.git] / extra / forestdb / lib / lib.factor

diff --git a/extra/forestdb/lib/lib.factor b/extra/forestdb/lib/lib.factor
index 0f26a5bbbd71d06522a870ba9abbf40922fafca9..f3ce44dc869b4ecb1c96621a74963fbe2d9a1d34 100644 (file)
--- a/extra/forestdb/lib/lib.factor
+++ b/extra/forestdb/lib/lib.factor
@@ -16,7 +16,7 @@ IN: forestdb.lib
 ERROR: fdb-error error ;
 
 : fdb-check-error ( ret -- )
-    dup FDB_RESULT_SUCCESS = [ drop ] [ throw-fdb-error ] if ;
+    dup FDB_RESULT_SUCCESS = [ drop ] [ fdb-error ] if ;
 
 
 TUPLE: fdb-kvs-handle < disposable handle ;
@@ -93,7 +93,7 @@ SYMBOL: current-fdb-kvs-handle
     rot {
         { FDB_RESULT_SUCCESS [ ret>string ] }
         { FDB_RESULT_KEY_NOT_FOUND [ 2drop f ] }
-        [ throw-fdb-error ]
+        [ fdb-error ]
     } case ;
 
 : fdb-del-kv ( key -- )