prompt ( -- str )

Vocabulary

listener

Inputs

None

Outputs

str

an object

Definition

USING: accessors kernel namespaces parser sequences
vocabs.parser ;

IN: listener

: prompt ( -- str )
    manifest get current-vocab>>
    [ name>> "IN: " prepend ] [ "" ] if* auto-use? get
    [ dup empty? "" " " ? "auto-use" 3append ] when ;