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

View File

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