gopher-main ( -- )

Vocabulary

gopher.cli

Inputs

None

Outputs

None

Definition

USING: command-loop kernel sequences ;

IN: gopher.cli

: gopher-main ( -- )
    "Welcome to Gopher!" "GOPHER>" gopher-command-loop
    new-command-loop COMMANDS [ over add-command ] each
    run-command-loop ;