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

[factor.git] / core / io / pathnames / pathnames.factor

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index d96bcf6d20ad2851d1896581bc297cf53efb5cb4..2d382e49d18342fb76cd6b7ccdba2d0beef4cd6c 100644 (file)
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -35,7 +35,7 @@ ERROR: no-parent-directory path ;
             drop "." swap
         ] if
         { "" "." ".." } member? [
-            throw-no-parent-directory
+            no-parent-directory
         ] when
     ] unless ;
 
@@ -57,7 +57,7 @@ ERROR: no-parent-directory path ;
         { [ dup head.? ] [
             rest trim-head-separators append-path-empty
         ] }
-        { [ dup head..? ] [ drop throw-no-parent-directory ] }
+        { [ dup head..? ] [ drop no-parent-directory ] }
         [ nip ]
     } cond ;