Remove >r/r> usage from ui.cocoa

diff --git a/basis/ui/cocoa/views/views.factor b/basis/ui/cocoa/views/views.factor
index 128fdceeb4f02065020c39f4f88741effc056470..f1e2f725b0c1361e629c10f8c0a8bc2e1766f1d5 100644 (file)
--- a/basis/ui/cocoa/views/views.factor
+++ b/basis/ui/cocoa/views/views.factor
@@ -266,14 +266,9 @@ CLASS: {
 { "writeSelectionToPasteboard:types:" "char" { "id" "SEL" "id" "id" }
     [
         CF>string-array NSStringPboardType swap member? [
-            >r drop window-focus gadget-selection dup [
-                r> set-pasteboard-string 1
-            ] [
-                r> 2drop 0
-            ] if
-        ] [
-            3drop 0
-        ] if
+            [ drop window-focus gadget-selection ] dip over
+            [ set-pasteboard-string 1 ] [ 2drop 0 ] if
+        ] [ 3drop 0 ] if
     ]
 }
 
@@ -281,9 +276,7 @@ CLASS: {
     [
         pasteboard-string dup [
             [ drop window-focus ] dip swap user-input 1
-        ] [
-            3drop 0
-        ] if
+        ] [ 3drop 0 ] if
     ]
 }