row. ( name quot -- )

Vocabulary

metar.private

Inputs

name	an object
quot	an object

Outputs

None

Definition

USING: io io.styles kernel wrap.strings ;

IN: metar.private

: row. ( name quot -- )
    [ [ write ] curry ] dip
    [ [ 65 wrap-string write ] when* ] compose
    [ [ with-cell ] curry ] dip [ with-cell ] curry compose
    with-row ; inline