From e826546c6d33ff02048b3652cc64058dde819f1c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 11 Feb 2017 20:58:25 -0800
Subject: [PATCH] cocoa.messages: simplify (objc-class).

---
 basis/cocoa/messages/messages.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 0324565e96..cd0e932f2a 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/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) ;