remove >r r>

diff --git a/basis/boxes/boxes.factor b/basis/boxes/boxes.factor
index 9e2e8a4673a788ab744da1497f5c57ce95e43d91..39f8eb44cc354c3a68e19396a0dd69943e21d963 100644 (file)
--- a/basis/boxes/boxes.factor
+++ b/basis/boxes/boxes.factor
@@ -23,4 +23,4 @@ ERROR: box-empty box ;
     dup occupied>> [ box> t ] [ drop f f ] if ;\r
 \r
 : if-box? ( box quot -- )\r
-    >r ?box r> [ drop ] if ; inline\r
+    [ ?box ] dip [ drop ] if ; inline\r