stripped-globals ( -- seq )

Vocabulary

tools.deploy.shaker

Inputs

None

Outputs

seq

an object

Definition

USING: classes.private command-line compiler.crossref
compiler.errors compiler.units continuations kernel make
namespaces parser.notes sets source-files source-files.errors
strings.parser tools.deploy.config vocabs vocabs.loader
vocabs.loader.private vocabs.parser words ;

IN: tools.deploy.shaker

: stripped-globals ( -- seq )
    [
        "inspector-hook" "inspector" lookup-word , {
            source-files
            error
            error-continuation
            error-thread
            restarts
        } % "disposables" "destructors" lookup-word ,
        "functor-words" "functors.backend" lookup-word ,
        { } { "stack-checker" "listener" "bootstrap" }
        vocab-tree-globals % { } { "tools" } vocab-tree-globals
        { } { "tools.deploy.test" } vocab-tree-globals diff %
        deploy-unicode? get
        [ { } { "unicode" } vocab-tree-globals % ] unless
        strip-dictionary? [
            "libraries" "alien" lookup-word ,
            { { "yield-hook" "compiler.utilities" } }
            { "cpu" "compiler" } vocab-tree-globals % {
                gensym
                name>char-hook
                next-method-quot-cache
                class-and-cache
                class-not-cache
                class-or-cache
                class<=-cache
                classes-intersect-cache
                implementors-map
                update-map
                main-vocab-hook
                compiled-crossref
                generic-call-site-crossref
                compiler-impl
                compiler-errors
                print-use-hook
                root-cache
                require-when-vocabs
                require-when-table
                error-types
                error-observers
                dictionary
                require-hook
                vocab-observers
                add-vocab-root-hook
                manifest
                word
                parser-quiet?
            } % { } { "layouts" } vocab-tree-globals %
            { } { "math.partial-dispatch" } vocab-tree-globals %
            { } { "math.vectors.simd" } vocab-tree-globals %
            { } { "peg" } vocab-tree-globals %
        ] when strip-prettyprint?
        [ { } { "prettyprint.config" } vocab-tree-globals % ]
        when strip-debugger? [ \ compiler-errors , ] when
    ] { } make ;