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

compiler.units: utility word filter-word-defs 

requires new boot images
char-rename
Björn Lindqvist 2016-12-05 08:55:32 +01:00
parent df2e17a32d
commit ba7d357a6e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/compiler/units/units.factor
View File

@ -67,12 +67,15 @@ HOOK: process-forgotten-words compiler-impl ( words -- )
: compile ( words -- ) : compile ( words -- )
recompile t f modify-code-heap ; recompile t f modify-code-heap ;
: filter-word-defs ( defset -- words )
members [ word? ] filter ;
! Non-optimizing compiler ! Non-optimizing compiler
M: f update-call-sites M: f update-call-sites
2drop { } ; 2drop { } ;
M: f to-recompile M: f to-recompile
changed-definitions get members [ word? ] filter ; changed-definitions get filter-word-defs ;
M: f recompile M: f recompile
[ dup def>> ] { } map>assoc ; [ dup def>> ] { } map>assoc ;
@ -117,8 +120,7 @@ M: object always-bump-effect-counter? drop f ;
<PRIVATE <PRIVATE
: changed-vocabs ( set -- vocabs ) : changed-vocabs ( set -- vocabs )
members [ word? ] filter filter-word-defs [ vocabulary>> dup [ lookup-vocab ] when ] map ;
[ vocabulary>> dup [ lookup-vocab ] when ] map ;
: updated-definitions ( -- set ) : updated-definitions ( -- set )
HS{ } clone HS{ } clone