strip-startup-hooks ( -- )

Vocabulary

tools.deploy.shaker

Inputs

None

Outputs

None

Definition

USING: assocs init io.streams.c kernel namespaces sequences
tools.deploy.config ;

IN: tools.deploy.shaker

: strip-startup-hooks ( -- )
    "Stripping startup hooks" show
    { "alien.strings" "cpu.x86.features" "environment" }
    [ startup-hooks get delete-at ] each deploy-threads? get
    [ "threads" startup-hooks get delete-at ] unless strip-io?
    [ "io.backend" startup-hooks get delete-at ] when
    strip-dictionary? [
        {
            "compiler.units"
            "source-files.errors"
            "vocabs"
            "vocabs.cache"
        } [ startup-hooks get delete-at ] each
    ] when ;