From 24a8cb0a958eb24fbc32770c693f9ca18460b4d4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 10 Dec 2008 16:25:57 -0600
Subject: [PATCH] Remove >r/r> usage from ui.cocoa

---
 basis/ui/cocoa/views/views.factor | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/basis/ui/cocoa/views/views.factor b/basis/ui/cocoa/views/views.factor
index 128fdceeb4..f1e2f725b0 100644
--- 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
     ]
 }