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

compiler.units: simplify checks.

db4
John Benediktsson 2013-03-10 09:36:35 -07:00
parent a595e3c54c
commit b4ac67dd25
1 changed files with 2 additions and 1 deletions
core/compiler/units

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

@ -138,7 +138,8 @@ 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 [ nip key? not ] curry assoc-any? ;
: bump-effect-counter ( -- ) : bump-effect-counter ( -- )
bump-effect-counter? [ bump-effect-counter? [