basis: ERROR: changes.

[factor.git] / basis / io / directories / search / search.factor

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index e0df575bf0bf124042c40addceabf96cce984d92..80f9f7cd15b3c6d1ca8f5f5affe72622b4ab261f 100644 (file)
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -103,13 +103,13 @@ PRIVATE>
 ERROR: file-not-found path bfs? quot ;
 
 : find-file-throws ( path bfs? quot -- path )
-    3dup find-file [ 2nip nip ] [ file-not-found ] if* ; inline
+    3dup find-file [ 2nip nip ] [ throw-file-not-found ] if* ; inline
 
 ERROR: sequence-expected obj ;
 
 : ensure-sequence-of-directories ( obj -- seq )
     dup string? [ 1array ] when
-    dup sequence? [ sequence-expected ] unless ;
+    dup sequence? [ throw-sequence-expected ] unless ;
 
 ! Can't make this generic# on string/sequence because of combinators
 : find-in-directories ( directories bfs? quot -- path'/f )