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

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

diff --git a/extra/forestdb/paths/paths.factor b/extra/forestdb/paths/paths.factor
index 79c54b12e041b418b1662d8056b98a8288c2e748..d27af11e6a760505049472aad627430f5eb39202 100644 (file)
--- a/extra/forestdb/paths/paths.factor
+++ b/extra/forestdb/paths/paths.factor
@@ -18,12 +18,12 @@ CONSTANT: fdb-filename-base "fq"
 ERROR: not-an-fdb-filename string ;
 
 : ensure-fdb-filename ( string -- string )
-    dup fdb-filename? [ throw-not-an-fdb-filename ] unless ;
+    dup fdb-filename? [ not-an-fdb-filename ] unless ;
 
 ERROR: not-a-string-number string ;
 
 : ?string>number ( string -- n )
-    dup string>number dup [ nip ] [ throw-not-a-string-number ] if ;
+    dup string>number dup [ nip ] [ not-a-string-number ] if ;
 
 : change-string-number ( string quot -- string' )
     [ [ string>number ] dip call number>string ] 2keep drop