cleared-globals ( -- seq )

Vocabulary

tools.deploy.shaker

Inputs

None

Outputs

seq

an object

Definition

USING: init io io.backend io.pathnames kernel make system
tools.deploy.config words ;

IN: tools.deploy.shaker

: cleared-globals ( -- seq )
    [
        {
            startup-hooks
            input-stream
            output-stream
            error-stream
            vm-path
            image-path
            current-directory
        } % "io-thread" "io.thread" lookup-word ,
        deploy-threads?
        [ "initial-thread" "threads" lookup-word , ] unless
        strip-io? [ io-backend , ] when
        { } { "timers" "io.launcher" "random" }
        vocab-tree-globals %
        "windows-messages" "windows.messages" lookup-word
        [ , ] when*
    ] { } make ;