steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basis: use harvest-values

db4
Doug Coleman 2015-08-08 12:24:22 -05:00
parent 434f08a303
commit 76cb13ac52
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/representations/selection/selection.factor
View File

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

2
basis/regexp/disambiguate/disambiguate.factor
View File

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