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

tools.deploy.shaker: change compiler-classes to return a set.

char-rename
John Benediktsson 2017-02-07 15:30:50 -08:00
parent ef3d271fb3
commit 92d7f6bc5a
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/tools/deploy/shaker/shaker.factor
View File

@ -234,10 +234,12 @@ IN: tools.deploy.shaker
"Clearing memoized word caches" show
[ memoized? ] instances [ reset-memoized ] each ;
: compiler-classes ( -- seq )
{ "compiler" "stack-checker" }
[ loaded-child-vocab-names [ vocab-words ] map concat [ class? ] filter ]
map concat unique ;
: compiler-classes ( -- set )
{ "compiler" "stack-checker" } [
loaded-child-vocab-names
[ vocab-words ] map concat
[ class? ] filter
] map concat fast-set ;
: prune-decision-tree ( tree classes -- )
[ tuple class>type ] 2dip '[
@ -246,7 +248,7 @@ IN: tools.deploy.shaker
dup array? [
[
2 group
[ drop _ key? ] assoc-reject
[ drop _ in? ] assoc-reject
concat
] map
] when