cocoa.messages: simplify (objc-class).

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) ;