>r/r> optimization

diff --git a/library/compiler/optimizer/optimizer.factor b/library/compiler/optimizer/optimizer.factor
index b7f28ce44e12023fe01c801eada529a9a95490e0..c116ab277499beb8b20d0e52cae89deb6a44a47c 100644 (file)
--- a/library/compiler/optimizer/optimizer.factor
+++ b/library/compiler/optimizer/optimizer.factor
@@ -42,11 +42,13 @@ M: #shuffle optimize-node*
 
 ! #>r
 M: #>r optimize-node* 
-    [ node-in-d empty? ] prune-if ;
+    [ dup node-in-d empty? swap node-successor #r>? or ]
+    prune-if ;
 
 ! #r>
 M: #r> optimize-node* 
-    [ node-in-r empty? ] prune-if ;
+    [ dup node-in-r empty? swap node-successor #>r? or ]
+    prune-if ;
 
 ! #push
 M: #push optimize-node*