cocoa.messages: cleanup

2010-02-24 20:18:48 +13:00 · 2010-02-24 20:18:48 +13:00 · fa6c8117aa
parent af0ddd5985
commit fa6c8117aa
1 changed files with 2 additions and 2 deletions
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@ -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 ;