steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/cocoa/messages/messages.factor
View File

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