visible-vars. ( -- )

Vocabulary

listener.private

Inputs

None

Outputs

None

Definition

USING: io io.styles kernel listener namespaces sequences ;

IN: listener.private

: visible-vars. ( -- )
    visible-vars get [
        nl "--- Watched variables:" title. standard-table-style 
        [
            [
                [
                    [ ~quotation~ with-cell ]
                    [ ~quotation~ with-cell ] bi
                ] with-row
            ] each
        ] tabular-output nl
    ] unless-empty ;