inputs-and-outputs ( content word -- content' word )

Vocabulary

help.private

Inputs

content	an object
word	an object

Outputs

content'	an object
word	an object

Definition

USING: accessors arrays effects help.markup kernel sequences ;

IN: help.private

: inputs-and-outputs ( content word -- content' word )
    over
    [ dup array? [ { $values } head? ] [ drop f ] if ] find drop 
    [
        [ cut unclip rest ] curry dip [
            stack-effect [ in>> ] [ out>> ] bi
            [ [ dup pair? [ first ] when ] map ] bi@ [
                [ [ ?first ] ] dip [ member? ] curry compose
                filter
            ] bi-curry@ \ $inputs \ $outputs
            [ [ prefix ] curry compose ] bi-curry@ bi* bi 2array
            glue
        ] keep
    ] when* ;