with-debug ( quot -- )

Vocabulary

bittorrent

Inputs

quot

an object

Outputs

None

Definition

USING: accessors io kernel namespaces ui ui.gadgets.panes
ui.tools.listener ;

IN: bittorrent

: with-debug ( quot -- )
    ui-running? [
        get-listener output>> <pane-stream> swap
        [ flush ] compose with-output-stream*
    ] [ [ flush ] compose with-global ] if ; inline