cocoa.messages: with-out-parameters has a local alloc error, so don't use it..

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

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 77ee8bbd9ceceea5232fca66e7c29231dd77d737..5775fec4af00f1ab7346ff9cbe4339365af2ec77 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -250,7 +250,7 @@ ERROR: no-objc-type name ;
 : each-method-in-class ( class quot: ( classname method -- ) -- )
     [
         [ class_getName ] keep
-        { uint } [ class_copyMethodList ] with-out-parameters
+        0 uint <ref> [ class_copyMethodList ] keep uint deref
     ] dip over 0 = [ 4drop ] [
         [ void* <c-direct-array> ] dip
         [ with each ] [ drop (free) ] 2bi