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

[factor.git] / core / io / io.factor

diff --git a/core/io/io.factor b/core/io/io.factor
index c50fc6f46c6004c959a5799660412c05175fc7bd..d7d4edf49ff1656c56457069e989dd510155f2eb 100644 (file)
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -69,7 +69,7 @@ SYMBOL: error-stream
     [ ] cleanup ; inline
 
 : tabular-output ( style quot -- )
-    swap >r { } make r> output-stream get stream-write-table ; inline
+    swap [ { } make ] dip output-stream get stream-write-table ; inline
 
 : with-row ( quot -- )
     { } make , ; inline
@@ -89,8 +89,8 @@ SYMBOL: error-stream
     ] if ; inline
 
 : with-nesting ( style quot -- )
-    >r output-stream get make-block-stream
-    r> with-output-stream ; inline
+    [ output-stream get make-block-stream ] dip
+    with-output-stream ; inline
 
 : print ( string -- ) output-stream get stream-print ;