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

[factor.git] / core / splitting / splitting.factor

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index f2d7593295688a3b0b60d4f2dbecaed16dfb56bd..29fee2e5c3c063d0b3cb2d65ae9760fabd2244ef 100644 (file)
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -18,14 +18,14 @@ IN: splitting
 
 : split1 ( seq subseq -- before after )
     dup pick start dup [
-        [ >r over r> head -rot length ] keep + tail
+        [ [ over ] dip head -rot length ] keep + tail
     ] [
         2drop f
     ] if ;
 
 : split1-slice ( seq subseq -- before-slice after-slice )
     dup pick start dup [
-        [ >r over r> head-slice -rot length ] keep + tail-slice
+        [ [ over ] dip head-slice -rot length ] keep + tail-slice
     ] [
         2drop f
     ] if ;