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


Vocabulary
help.lint.coverage.private

Inputs
wordan object
specan object


Outputs
specan 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 ;