move-left ( -- )

Vocabulary

curses.listener

Inputs

None

Outputs

None

Definition

USING: curses math ;

IN: curses.listener

: move-left ( -- )
    get-yx
    [ [ 1 - get-max-x 1 - delchar ] unless-zero ]
    [ 1 - delchar ] if-zero ;