make-example ( str -- seq )

Vocabulary

help.syntax.private

Inputs

str

an object

Outputs

seq

an object

Definition

USING: arrays combinators.short-circuit help.markup kernel math
sequences strings.parser ;

IN: help.syntax.private

: make-example ( str -- seq )
    code-lines dup { [ array? ] [ length 1 > ] } 1&& [
        dup length 1 - over [ unescape-string ] change-nth
        \ $example prefix
    ] when ;