recursive-subst ( seq old new -- )

Vocabulary

tools.deploy.shaker

Inputs

seq	an object
old	an object
new	an object

Outputs

None

Definition

USING: arrays combinators kernel sequences ;

IN: tools.deploy.shaker

: recursive-subst ( seq old new -- )
    [
        {
            { [ 2over eq? ] [ 2nip ] }
            { [ pick array? ] [ [ dup ] 2dip recursive-subst ] }
            [ 2drop ]
        } cond
    ] 2curry map! drop ;