From 1b508b9c376ea04577232b50d17d4a9af0545716 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 22 Feb 2010 13:10:20 +1300
Subject: [PATCH] cocoa.messages: fix
---
basis/cocoa/messages/messages.factor | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index eab301add7..76b77721ff 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -236,10 +236,11 @@ ERROR: no-objc-type name ;
] bi ;
: import-objc-class ( name quot -- )
- over define-objc-class-word
+ 2dup swap define-objc-class-word
+ over objc_getClass [ drop ] [ call( -- ) ] if
dup objc_getClass [
- [ objc-class register-objc-methods ]
- [ objc-meta-class register-objc-methods ] bi
+ [ objc_getClass register-objc-methods ]
+ [ objc_getMetaClass register-objc-methods ] bi
] [ drop ] if ;
: root-class ( class -- root )