prepare-deploy-libraries ( -- )

Vocabulary

tools.deploy.shaker

Inputs

None

Outputs

None

Definition

USING: accessors alien.libraries assocs compiler.units
definitions io.streams.c kernel namespaces sequences words ;

IN: tools.deploy.shaker

: prepare-deploy-libraries ( -- )
    "Preparing deployed libraries" show deploy-libraries get [
        libraries get [
            [ path>> >deployed-library-path ] [ abi>> ] bi
            make-library
        ] change-at
    ] each [
        "deploy-libraries" "alien.libraries" lookup-word forget
        "deploy-library" "alien.libraries" lookup-word forget
        ">deployed-library-path" "alien.libraries.private"
        lookup-word forget
    ] with-compilation-unit ;