gemini-command-loop

Vocabulary

gemini.cli

Definition

USING: command-loop ;

IN: gemini.cli

TUPLE: gemini-command-loop < command-loop ;

Methods

USING: arrays command-loop gemini.cli generic kernel math
math.parser sequences ;

M: gemini-command-loop missing-command
    over string>number [ 1 - LINKS ?nth ] [ f ] if* [
        [ add-history ] [ add-stack ]
        [ dup array? [ first ] when gemini-get 3drop ] tri
    ] [
        M\ gemini-command-loop missing-command
        (call-next-method)
    ] if* ;