NSFastEnumeration-map >hashtable ;
: (read-plist) ( NSData -- id )
- NSPropertyListSerialization swap kCFPropertyListImmutable f f <void*>
- [ -> propertyListFromData:mutabilityOption:format:errorDescription: ] keep
- *void* [ -> release "read-plist failed" throw ] when* ;
+ NSPropertyListSerialization swap kCFPropertyListImmutable f
+ { void* }
+ [ -> propertyListFromData:mutabilityOption:format:errorDescription: ] [ ]
+ with-out-parameters
+ [ -> release "read-plist failed" throw ] when* ;
+
+MACRO: objc-class-case ( alist -- quot )
+ [
+ dup callable?
+ [ first2 [ '[ dup _ execute -> isKindOfClass: c-bool> ] ] dip 2array ]
+ unless
+ ] map '[ _ cond ] ;
PRIVATE>