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

[factor.git] / extra / io / files / acls / macosx / macosx.factor

diff --git a/extra/io/files/acls/macosx/macosx.factor b/extra/io/files/acls/macosx/macosx.factor
index 247e52b98ee4649c7b902c7ad7353c324d58bf8b..c26be9572ccafca5517c8832258b786c643b5aee 100644 (file)
--- a/extra/io/files/acls/macosx/macosx.factor
+++ b/extra/io/files/acls/macosx/macosx.factor
@@ -77,7 +77,7 @@ PRIVATE>
 ERROR: acl-init-failed n ;
 
 :: n>new-acl ( n -- acl )
-    n acl_init dup [ n throw-acl-init-failed ] unless ;
+    n acl_init dup [ n acl-init-failed ] unless ;
 
 : new-acl ( -- acl ) 1 n>new-acl ; inline