cocoa.messages: fix

db4
Slava Pestov 2010-02-22 13:10:20 +13:00
parent 9b0530dc97
commit 1b508b9c37
1 changed files with 4 additions and 3 deletions
basis/cocoa/messages

View File

@ -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 )