pair-coverage. ( word quots -- )

Vocabulary
tools.coverage

Definition

USING: accessors io kernel prettyprint sequences ;

IN: tools.coverage

: pair-coverage. ( word quots -- )
    dup empty?
    [ 2drop ] [
        [ name>> ":" append print ] [ [ "    " write . ] each ]
        bi*
    ] if ;