extract-value-effects ( element -- seq )

Vocabulary

help.lint.checks

Inputs

element

an object

Outputs

seq

an object

Definition

USING: effects help.markup kernel sequences ;

IN: help.lint.checks

: extract-value-effects ( element -- seq )
    \ $values swap elements
    [ f ] [
        first rest [
            \ $quotation swap elements
            [ f ]
            [ first second dup effect? [ effect>string ] when ]
            if-empty
        ] map
    ] if-empty ;