ui.backend.cocoa.views: prepareOpenGL can use ?-> syntax.

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index ec5bfd7f62aabc1587694a3c14bb7f2fe4b69877..690269280c9ac4a3df5af84565e0b45c1a5de8d7 100644 (file)
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -189,11 +189,9 @@ M: send-touchbar-command send-queued-gesture
         self SEL: setWantsBestResolutionOpenGLSurface:
         -> respondsToSelector: c-bool> [
 
-            self SEL: setWantsBestResolutionOpenGLSurface: 1
-            void f "objc_msgSend" { id SEL char } f alien-invoke
+            self 1 { void { id SEL char } } ?-> setWantsBestResolutionOpenGLSurface:
 
-            self SEL: backingScaleFactor
-            double f "objc_msgSend" { id SEL } f alien-invoke
+            self { double { id SEL } } ?-> backingScaleFactor
 
             dup 1.0 > [
                 gl-scale-factor set-global t retina? set-global