From 40786556b3f651e9f3294208223eb3c9eb1c92cc Mon Sep 17 00:00:00 2001 From: slava Date: Sat, 4 Nov 2006 07:44:28 +0000 Subject: [PATCH] >r/r> optimization --- library/compiler/optimizer/optimizer.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/library/compiler/optimizer/optimizer.factor b/library/compiler/optimizer/optimizer.factor index b7f28ce44e..c116ab2774 100644 --- 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*