From 62a1a1df1c9dde0c333989e24ca020a255d9d02a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Nov 2008 13:21:40 -0600
Subject: [PATCH] remove >r r>

---
 basis/boxes/boxes.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/boxes/boxes.factor b/basis/boxes/boxes.factor
index 9e2e8a4673..39f8eb44cc 100644
--- 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 ;
 
 : if-box? ( box quot -- )
-    >r ?box r> [ drop ] if ; inline
+    [ ?box ] dip [ drop ] if ; inline