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