basis: ERROR: changes.

[factor.git] / basis / core-foundation / launch-services / launch-services.factor

diff --git a/basis/core-foundation/launch-services/launch-services.factor b/basis/core-foundation/launch-services/launch-services.factor
index 77a984e75ac09a01f923ab3ff3fbda1befebee5e..9e75dd8680288d422ebf22868a6792ef7e8797b8 100644 (file)
--- a/basis/core-foundation/launch-services/launch-services.factor
+++ b/basis/core-foundation/launch-services/launch-services.factor
@@ -113,7 +113,7 @@ CONSTANT: kLSUnknownCreator f
 ERROR: core-foundation-error n ;
 
 : cf-error ( n -- )
-    dup 0 = [ drop ] [ core-foundation-error ] if ;
+    dup 0 = [ drop ] [ throw-core-foundation-error ] if ;
 
 : fsref>string ( fsref -- string )
     MAXPATHLEN [ <char-array> ] [ ] bi