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

cocoa.messages: simplify (objc-class).

char-rename
John Benediktsson 2017-02-11 20:58:25 -08:00
parent 52932cf2e1
commit e826546c6d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,12 +94,12 @@ SYMBOL: class-init-hooks
class-init-hooks [ H{ } clone ] initialize class-init-hooks [ H{ } clone ] initialize
: (objc-class) ( name word -- class ) : (objc-class) ( name word -- class )
2dup execute dup [ 2nip ] [ 2dup execute [ 2nip ] [
drop over class-init-hooks get at [ call( -- ) ] when* over class-init-hooks get at [ call( -- ) ] when*
2dup execute dup [ 2nip ] [ 2dup execute [ 2nip ] [
2drop "No such class: " prepend throw drop "No such class: " prepend throw
] if ] if*
] if ; inline ] if* ; inline
: objc-class ( string -- class ) : objc-class ( string -- class )
\ objc_getClass (objc-class) ; \ objc_getClass (objc-class) ;