?remove-$values ( word spec -- spec )

Vocabulary

help.lint.coverage.private

Inputs

word	an object
spec	an object

Outputs

spec

an object

Definition

USING: accessors help.markup kernel sequences words ;

IN: help.lint.coverage.private

: ?remove-$values ( word spec -- spec )
    \ $values over member? [
        swap "declared-effect" word-prop [
            [ in>> ] [ out>> ] bi append
            [ \ $values swap remove ] [ drop ] if-empty
        ] when*
    ] [ nip ] if ;