From 126b72f4c20c0ee2b1af1be1fac5e5643fdce5c2 Mon Sep 17 00:00:00 2001 From: Alex Vondrak Date: Sun, 3 Jul 2011 14:02:02 -0700 Subject: [PATCH] compiler.cfg.gvn.avail: make with-available-uses? short-circuit --- extra/compiler/cfg/gvn/avail/avail.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/compiler/cfg/gvn/avail/avail.factor b/extra/compiler/cfg/gvn/avail/avail.factor index e7d0db8cd3..7851e83723 100644 --- 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>>