     acl_add_perm acl-error ;
 
 : acl-entry>permset ( acl_entry_t -- acl_permset )
-    acl_permset_t <struct> [ acl_get_permset acl-error ] keep ;
+    f acl_permset_t <ref> [ acl_get_permset acl-error ] keep ;
 
 : filter-strings ( obj strings -- string )
    [ [ 1 = ] dip f ? ] 2map sift "," join ;


TYPEDEF: char[37] uuid_string_t

FUNCTION: int mbr_uuid_to_string (  uuid_t uu, char* string ) ;

: unix-id>string ( byte-array id-type -- string )
    {

DESTRUCTOR: free-acl

: get-acl-entry ( acl_t n -- acl_entry_t )
    f acl_entry_t <ref> [ acl_get_entry ] keep swap -1 = [ drop f ] when ;

: first-acl-entry ( acl_t -- acl_entry_t ) ACL_FIRST_ENTRY get-acl-entry ;
: next-acl-entry ( acl_t -- acl_entry_t ) ACL_NEXT_ENTRY get-acl-entry ;
