compiler.units: changes dynamic vars so that they are stack parameters instead

db4
Björn Lindqvist 2016-03-01 18:04:12 +01:00
parent 915a7ec1e2
commit 6362a4ad5f
2 changed files with 7 additions and 7 deletions

View File

@ -228,8 +228,7 @@ SYMBOL: outdated-tuples
[ drop class-of "forgotten" word-prop not ]
2bi and ;
: update-tuples ( -- )
outdated-tuples get
: update-tuples ( outdated-tuples -- )
dup assoc-empty? [ drop ] [
[ [ tuple? ] instances ] dip [ outdated-tuple? ] curry filter
dup [ update-tuple ] map become

View File

@ -129,8 +129,8 @@ M: object always-bump-effect-counter? drop f ;
maybe-changed get union!
dup changed-vocabs over adjoin-all ;
: process-forgotten-definitions ( -- )
forgotten-definitions get members
: process-forgotten-definitions ( forgotten-definitions -- )
members
[ [ word? ] filter process-forgotten-words ]
[ [ delete-definition-errors ] each ]
bi ;
@ -138,7 +138,8 @@ M: object always-bump-effect-counter? drop f ;
: bump-effect-counter? ( -- ? )
changed-effects get members
maybe-changed get members
changed-definitions get members [ always-bump-effect-counter? ] filter
changed-definitions get members
[ always-bump-effect-counter? ] filter
3array combine new-words get [ in? not ] curry any? ;
: bump-effect-counter ( -- )
@ -162,8 +163,8 @@ M: object always-bump-effect-counter? drop f ;
remake-generics
to-recompile [
recompile
update-tuples
process-forgotten-definitions
outdated-tuples get update-tuples
forgotten-definitions get process-forgotten-definitions
] keep update-existing? reset-pics? modify-code-heap
bump-effect-counter
notify-observers