basic-chant ( basic-expr -- )

Vocabulary

shell

Inputs

basic-expr

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: shell

: basic-chant ( basic-expr -- )
    dup command>> first swords member?
    [ run-sword ] [ run-basic-expr ] if ;