classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[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 cc72a8013c89735dc326358dc6c2647317c2804d..7b7a12d7be01615db46c905608b9c4e3b0a82345 100644 (file)
--- a/basis/core-foundation/launch-services/launch-services.factor
+++ b/basis/core-foundation/launch-services/launch-services.factor
@@ -126,7 +126,7 @@ ERROR: core-foundation-error n ;
         kLSUnknownCreator
         swap <CFString> &CFRelease
         f
-        FSRef <struct>
+        FSRef new
         [ f LSFindApplicationForInfo cf-error ] keep
         fsref>string
     ] with-destructors ;