set-in-definition ( -- )

Vocabulary

effects.parser

Inputs

None

Outputs

None

Definition

USING: accessors kernel namespaces sets vocabs.parser words ;

IN: effects.parser

: set-in-definition ( -- )
    manifest get current-vocab>> t or in-definition ?adjoin
    [ last-word can't-nest-definitions ] unless ;