Permalink
Browse files

cocoa.messages: simplify (objc-class).

  • Loading branch information...
1 parent 52932cf commit e826546c6d33ff02048b3652cc64058dde819f1c @mrjbq7 mrjbq7 committed Feb 12, 2017
Showing with 6 additions and 6 deletions.
  1. +6 −6 basis/cocoa/messages/messages.factor
@@ -94,12 +94,12 @@ SYMBOL: class-init-hooks
class-init-hooks [ H{ } clone ] initialize
: (objc-class) ( name word -- class )
- 2dup execute dup [ 2nip ] [
- drop over class-init-hooks get at [ call( -- ) ] when*
- 2dup execute dup [ 2nip ] [
- 2drop "No such class: " prepend throw
- ] if
- ] if ; inline
+ 2dup execute [ 2nip ] [
+ over class-init-hooks get at [ call( -- ) ] when*
+ 2dup execute [ 2nip ] [
+ drop "No such class: " prepend throw
+ ] if*
+ ] if* ; inline
: objc-class ( string -- class )
\ objc_getClass (objc-class) ;

0 comments on commit e826546

Please sign in to comment.