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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/classes/tuple/tuple.factor
View File

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

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

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