basis: use harvest-values

basis/compiler/cfg/representations/selection/selection.factor

@@ -128,7 +128,7 @@ M: vreg-insn compute-insn-costs
     ] each-basic-block ;
 
 : minimize-costs ( costs -- representations )
-    [ nip assoc-empty? ] assoc-reject
+    harvest-values
     [ >alist alist-min first ] assoc-map ;
 
 : compute-representations ( cfg -- )

basis/regexp/disambiguate/disambiguate.factor

@@ -66,7 +66,7 @@ TUPLE: parts in out ;
         dup new-transitions '[
             [
                 _ swap '[ _ get-transitions ] assoc-map
-                [ nip empty? ] assoc-reject
+                harvest-values
             ] preserving-epsilon
         ] assoc-map
     ] change-transitions ;