Refactor all usages of >r/r> in core to use dip, 2dip, 3dip

[factor.git] / core / strings / strings.factor

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 944286cce567d72bbd5f01b30c015e76a22cc297..39628ede98cdfd64edb60f02d3447ac6523e908c 100644 (file)
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -34,11 +34,11 @@ M: string length
     length>> ;
 
 M: string nth-unsafe
-    >r >fixnum r> string-nth ;
+    [ >fixnum ] dip string-nth ;
 
 M: string set-nth-unsafe
     dup reset-string-hashcode
-    >r >fixnum >r >fixnum r> r> set-string-nth ;
+    [ [ >fixnum ] dip >fixnum ] dip set-string-nth ;
 
 M: string clone
     (clone) [ clone ] change-aux ;