missing-command ( args name command-loop -- )

Vocabulary

command-loop

Inputs

args	an object
name	an object
command-loop	an object

Outputs

None

Definition

IN: command-loop

GENERIC: missing-command ( args name command-loop -- )

Methods

USING: command-loop io kernel sequences ;

M: command-loop missing-command
    drop "ERROR: Unknown command '" "'" surround print drop ;


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

M: gemini-command-loop missing-command
    over string>number [ 1 - LINKS ?nth ] [ f ] if*
    [ gemini-go 3drop ] [
        M\ gemini-command-loop missing-command
        (call-next-method)
    ] if* ;


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

M: gopher-command-loop missing-command
    over string>number [ 1 - LINKS ?nth ] [ f ] if*
    [ gopher-go 3drop ] [
        M\ gopher-command-loop missing-command
        (call-next-method)
    ] if* ;