effect-help ( effect -- content )

Vocabulary

help

Inputs

effect

an object

Outputs

content

an object

Definition

USING: accessors arrays assocs effects help.markup kernel
sequences ;

IN: help

: effect-help ( effect -- content )
    [ in>> ] [ out>> ] bi [
        [
            dup pair? [
                first2 dup effect?
                [ \ $quotation swap 2array ] when
            ] [ object ] if [ effect>string ] dip
        ] { } map>assoc
    ] bi@ \ $inputs \ $outputs [ prefix ] bi-curry@ bi* 2array ;