From ada7262fd8ac7b01d490199e3ff767ade6408ccd Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 9 Mar 2006 22:43:38 +0000
Subject: [PATCH] Bootstrap fix for OS X

---
 library/cocoa/utilities.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/library/cocoa/utilities.factor b/library/cocoa/utilities.factor
index d615bcb4d5..3a82cf168c 100644
--- a/library/cocoa/utilities.factor
+++ b/library/cocoa/utilities.factor
@@ -81,10 +81,12 @@ alien>objc-types set-global
     [ objc-method-name sel_getName ] keep
     method-arg-types 3array ;
 
+: method-list@ ( ptr -- ptr )
+    "objc-method-list" c-size swap <displaced-alien> ;
+
 : method-list>seq ( method-list -- seq )
-    dup objc-method-list-elements swap objc-method-list-count [
-        swap objc-method-nth objc-method-info
-    ] map-with ;
+    dup method-list@ swap objc-method-list-count
+    [ swap objc-method-nth objc-method-info ] map-with ;
 
 : (objc-methods) ( objc-class iterator -- )
     2dup class_nextMethodList