(lint.) ( pair -- )

Vocabulary

lint.private

Inputs

pair

an object

Outputs

None

Definition

USING: assocs io kernel namespaces prettyprint sequences ;

IN: lint.private

: (lint.) ( pair -- )
    first2 [ word-path. ] dip [
        [ 4bl . "-----------------------------------" print ] [
            lint-definitions get-global at
            [ 4bl word-path. ] each nl
        ] bi
    ] each nl ;