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

Fix cache polution issue

db4
Slava Pestov 2008-09-17 23:28:54 -05:00
parent 3a83c1e895
commit 34faf1f786
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/bootstrap/image/image.factor
View File

@ -412,14 +412,14 @@ M: quotation '
all-words [ emit-word ] each ; all-words [ emit-word ] each ;
: emit-global ( -- ) : emit-global ( -- )
[ {
{ dictionary source-files builtins
dictionary source-files builtins update-map implementors-map
update-map implementors-map class<=-cache } [ [ bootstrap-word ] [ get ] bi ] H{ } map>assoc
class-not-cache classes-intersect-cache class-and-cache {
class-or-cache class<=-cache class-not-cache classes-intersect-cache
} [ dup get swap bootstrap-word set ] each class-and-cache class-or-cache
] H{ } make-assoc } [ H{ } clone ] H{ } map>assoc assoc-union
bootstrap-global set bootstrap-global set
bootstrap-global emit-userenv ; bootstrap-global emit-userenv ;