load-conditional-requires ( vocab -- )

Vocabulary

vocabs.loader.private

Inputs

vocab

an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces sequences sets vocabs
;

IN: vocabs.loader.private

: load-conditional-requires ( vocab -- )
    vocab-name require-when-vocabs get in? [
        require-when-table get [
            [
                [
                    lookup-vocab dup
                    [ source-loaded?>> +done+ = ] when
                ] all?
            ] dip [ require ] curry when
        ] assoc-each
    ] when ;