compiler: oops, assoc-empty? vs empty?. undo harvest-values here.

2015-08-08 12:27:36 -05:00 · 2015-08-08 12:27:36 -05:00 · 0bdc27053b
parent 76cb13ac52
commit 0bdc27053b
1 changed files with 1 additions and 1 deletions
--- 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 -- )