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

[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 b7dbc4b3f15b5a3d5abfe7e06172dab4c1af86e4..fb56c48299f6767816636fb4d0e77560f5a8076a 100644 (file)
--- a/extra/io/files/acls/macosx/macosx.factor
+++ b/extra/io/files/acls/macosx/macosx.factor
@@ -14,7 +14,7 @@ IN: io.files.acls.macosx
     {
         { ID_TYPE_UID [ user-name "user:" prepend ] }
         { ID_TYPE_GID [ group-name "group:" prepend ] }
-        ! [ uuid_string_t <struct> [ mbr_uuid_to_string io-error ] keep ]
+        ! [ uuid_string_t new [ mbr_uuid_to_string io-error ] keep ]
     } case ;
 
 : acl-error ( n -- ) -1 = [ throw-errno ] when ; inline