macros: macro body is now defined in its own subword, for compile-time stack effect...

[factor.git] / basis / cocoa / plists / plists.factor

diff --git a/basis/cocoa/plists/plists.factor b/basis/cocoa/plists/plists.factor
index 86b13b2ddc2e83341c83480bad3b81b16e20ea17..90cc64769a7e7f39cafce01da755b15d7e50d4eb 100644 (file)
--- a/basis/cocoa/plists/plists.factor
+++ b/basis/cocoa/plists/plists.factor
@@ -40,13 +40,6 @@ DEFER: plist>
     [ -> propertyListFromData:mutabilityOption:format:errorDescription: ] keep
     *void* [ -> 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>
 
 ERROR: invalid-plist-object object ;