strip-word-props ( stripped-props words -- )

Vocabulary

tools.deploy.shaker

Inputs

stripped-props	an object
words	an object

Outputs

None

Definition

USING: accessors assocs io.streams.c kernel sequences ;

IN: tools.deploy.shaker

: strip-word-props ( stripped-props words -- )
    "Stripping word properties" show swap '[
        [ [ _ member? ] reject-keys sift-values >alist f like ]
        change-props drop
    ] each ;