>r/r> optimization

2006-11-04 07:44:28 +00:00 · 2006-11-04 07:44:28 +00:00 · 40786556b3
parent 674e993ce3
commit 40786556b3
1 changed files with 4 additions and 2 deletions
--- 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*