metronome-main ( -- )

Vocabulary

rosetta-code.metronome

Inputs

None

Outputs

None

Definition

USING: continuations kernel system ui ;

IN: rosetta-code.metronome

: metronome-main ( -- )
    [
        [ metronome-cmdline metronome-ui ]
        [ drop metronome-usage 1 exit ] recover
    ] with-ui ;