cocoa.messages: cleanup

db4
Slava Pestov 2010-02-24 20:18:48 +13:00
parent af0ddd5985
commit fa6c8117aa
1 changed files with 2 additions and 2 deletions

View File

@ -237,8 +237,8 @@ ERROR: no-objc-type name ;
: import-objc-class ( name quot -- )
2dup swap define-objc-class-word
over objc_getClass [ drop ] [ call( -- ) ] if
dup objc_getClass [
over class-exists? [ drop ] [ call( -- ) ] if
dup class-exists? [
[ objc_getClass register-objc-methods ]
[ objc_getMetaClass register-objc-methods ] bi
] [ drop ] if ;