create-global-hashtable ( -- global-hashtable )

Vocabulary

bootstrap.image.private

Inputs

None

Outputs

global-hashtable

an object

Definition

USING: assocs classes.builtin classes.private kernel namespaces
namespaces.private source-files vocabs words ;

IN: bootstrap.image.private

: create-global-hashtable ( -- global-hashtable )
    {
        dictionary
        source-files
        builtins
        update-map
        implementors-map
    } [ [ bootstrap-word ] [ get global-box boa ] bi ] H{ }
    map>assoc {
        class<=-cache
        class-not-cache
        classes-intersect-cache
        class-and-cache
        class-or-cache
        next-method-quot-cache
    } [ H{ } clone global-box boa ] H{ } map>assoc assoc-union
    global-hashtable boa ;