end-private ( -- )
Factor handbook » The language » Parsing words » Reflection support for vocabulary search path

Prev:

begin-private ( -- )

Vocabulary
vocabs.parser

Word description
Ends a block of private word definitions.

Notes
This word is used to implement PRIVATE>.

Definition

USING: accessors kernel splitting ;

IN: vocabs.parser

: end-private ( -- )
    current-vocab name>> ".private" ?tail
    [ set-current-vocab ] [ unbalanced-private-declaration ] if
    ;