Fix cache polution issue
parent
3a83c1e895
commit
34faf1f786
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue