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

Prev:	set-current-vocab ( name -- )
Next:	end-private ( -- )

Vocabulary
vocabs.parser

Word description
Begins a block of private word definitions. Private word definitions are placed in the current vocabulary name, suffixed with .private.

Notes
This word is used to implement <PRIVATE.

Definition

USING: accessors kernel sequences splitting ;

IN: vocabs.parser

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