From 0bdc27053b5acf6fb08f0a645e19b583eac4eaac Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 8 Aug 2015 12:27:36 -0500 Subject: [PATCH] compiler: oops, assoc-empty? vs empty?. undo harvest-values here. --- basis/compiler/cfg/representations/selection/selection.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/cfg/representations/selection/selection.factor b/basis/compiler/cfg/representations/selection/selection.factor index b498ce29f7..1175113774 100644 --- a/basis/compiler/cfg/representations/selection/selection.factor +++ b/basis/compiler/cfg/representations/selection/selection.factor @@ -128,7 +128,7 @@ M: vreg-insn compute-insn-costs ] each-basic-block ; : minimize-costs ( costs -- representations ) - harvest-values + [ nip assoc-empty? ] assoc-reject [ >alist alist-min first ] assoc-map ; : compute-representations ( cfg -- )