From f976d97983812f073515e5f5466c8dd23f8c0557 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 26 Jan 2018 16:48:12 -0800
Subject: [PATCH] cocoa.touchbar: try this.

---
 basis/cocoa/touchbar/touchbar.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/cocoa/touchbar/touchbar.factor b/basis/cocoa/touchbar/touchbar.factor
index e040840b93..a467dc47f6 100644
--- a/basis/cocoa/touchbar/touchbar.factor
+++ b/basis/cocoa/touchbar/touchbar.factor
@@ -7,17 +7,17 @@ IN: cocoa.touchbar
 
 : make-touchbar ( seq self -- touchbar )
     [ NSTouchBar -> alloc -> init dup ] dip -> setDelegate: {
-        [ swap <CFStringArray> { void { id SEL id } } ?-> setDefaultItemIdentifiers: ]
-        [ swap <CFStringArray> { void { id SEL id } } ?-> setCustomizationAllowedItemIdentifiers: ]
+        [ swap <CFStringArray> -> setDefaultItemIdentifiers: ]
+        [ swap <CFStringArray> -> setCustomizationAllowedItemIdentifiers: ]
         [ nip ]
     } 2cleave ;
 
 :: make-NSTouchBar-button ( self identifier label-string action-string -- button )
     NSCustomTouchBarItem -> alloc
-        identifier <CFString> { id { id SEL id } } ?-> initWithIdentifier: :> item
+        identifier <CFString> -> initWithIdentifier: :> item
         NSButton
             label-string <CFString>
             self
-            action-string lookup-selector { id { id SEL id id SEL } } ?-> buttonWithTitle:target:action: :> button
+            action-string lookup-selector -> buttonWithTitle:target:action: :> button
         item button -> setView:
         item ;