compiler.cfg.gvn.avail: make with-available-uses? short-circuit

2011-07-03 14:02:02 -07:00 · 2011-07-03 14:02:02 -07:00 · b99a90f138
parent 6855e0bb15
commit b99a90f138
1 changed files with 1 additions and 1 deletions
--- a/extra/compiler/cfg/gvn/avail/avail.factor
+++ b/extra/compiler/cfg/gvn/avail/avail.factor
@ -34,7 +34,7 @@ M: avail-analysis transfer-set drop defined assoc-union ;
    uses-vregs [ available? ] all? ;

 : with-available-uses? ( quot -- ? )
-    [ available-uses? ] bi and ; inline
+    keep swap [ available-uses? ] [ drop f ] if ; inline

 : make-available ( insn -- insn )
    dup dst>>