deploy-startup-quot ( word -- )

Vocabulary

tools.deploy.shaker

Inputs

word

an object

Outputs

None

Definition

USING: assocs combinators continuations init io kernel make
namespaces sequences system tools.deploy.config ;

IN: tools.deploy.shaker

: deploy-startup-quot ( word -- )
    [
        [ boot ] % startup-hooks get values concat %
        strip-debugger?
        [ , ] [
            [:c] [print-error]
            [ [ ( obj -- ) execute-effect ] curry ] 2dip
            [ [ ( obj -- ) execute-effect nl ] curry ] dip
            [ ( obj -- ) execute-effect ] curry compose
            [ recover ] 2curry %
        ] if strip-io? [ [ flush ] % ] unless [ quit ] %
    ] [ ] make set-startup-quot ;