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

compiler.units: simpler update-existing? check.

db4
John Benediktsson 2013-03-10 09:19:22 -07:00
parent c0c769a7d8
commit a595e3c54c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -138,7 +138,7 @@ M: object always-bump-effect-counter? drop f ;
changed-effects get changed-effects get
maybe-changed get maybe-changed get
changed-definitions get [ drop always-bump-effect-counter? ] assoc-filter changed-definitions get [ drop always-bump-effect-counter? ] assoc-filter
3array assoc-combine new-words get assoc-diff assoc-empty? not ; 3array assoc-combine new-words get assoc-diff! assoc-empty? not ;
: bump-effect-counter ( -- ) : bump-effect-counter ( -- )
bump-effect-counter? [ bump-effect-counter? [
@ -151,7 +151,7 @@ M: object always-bump-effect-counter? drop f ;
[ drop ] [ notify-definition-observers notify-error-observers ] if ; [ drop ] [ notify-definition-observers notify-error-observers ] if ;
: update-existing? ( defs -- ? ) : update-existing? ( defs -- ? )
new-words get keys diff empty? not ; new-words get [ key? not ] curry any? ;
: reset-pics? ( -- ? ) : reset-pics? ( -- ? )
outdated-generics get assoc-empty? not ; outdated-generics get assoc-empty? not ;