help-effect ( word -- effect )

Vocabulary

help.private

Inputs

word

an object

Outputs

effect

an object

Definition

USING: accessors effects help.markup kernel sequences words
words.constant ;

IN: help.private

: help-effect ( word -- effect )
    dup stack-effect swap dup constant? [
        "help" word-prop \ $values swap elements ?first [
            rest [ first ] map dup length 1 =
            [ [ in>> ] dip <effect> ] [ drop ] if
        ] when*
    ] [ drop ] if ;