DEFINITIONS( -- ) => "[ANS] FORTH"
make the current context-vocabulary the definition-vocabulary,
that is where new names are declared in. see ORDER
primitive code = [p4_definitions]
GET-CURRENT( -- voc ) => "[ANS] FORTH"
return the current definition vocabulary, see DEFINITIONS
primitive code = [p4_get_current]
GET-ORDER( -- vocn ... voc1 n ) => "[ANS] FORTH"
get the current search order onto the stack, see SET-ORDER
primitive code = [p4_get_order]
SEARCH-WORDLIST( str-ptr str-len voc -- 0 | xt 1 | xt -1 ) => "[ANS] FORTH"
almost like FIND or (FIND) -- but searches only the
specified vocabulary.
primitive code = [p4_search_wordlist]
SET-CURRENT( voc -- ) => "[ANS] FORTH"
set the definition-vocabulary. see DEFINITIONS
primitive code = [p4_set_current]
SET-ORDER( vocn ... voc1 n -- ) => "[ANS] FORTH"
set the search-order -- probably saved beforehand using
GET-ORDER
primitive code = [p4_set_order]
WORDLIST( -- voc ) => "[ANS] FORTH"
return a new vocabulary-body for private definitions.
primitive code = [p4_wordlist]
ALSO( -- ) => "[ANS] FORTH"
a DUP on the search ORDER - each named vocabulary
replaces the topmost ORDER vocabulary. Using ALSO
will make it fixed to the search-order. (but it is
not nailed in trap-conditions as if using DEFAULT-ORDER )
order: vocn ... voc2 voc1 -- vocn ... voc2 voc1 voc1
primitive code = [p4_also]
ORDER( -- ) => "[ANS] FORTH"
show the current search-order, followed by
the CURRENT DEFINITIONS vocabulary
and the ONLY base vocabulary
primitive code = [p4_order]
PREVIOUS( -- ) => "[ANS] FORTH"
the invers of ALSO , does a DROP on the search ORDER
of vocabularies.
order: vocn ... voc2 voc1 -- vocn ... voc2
example: ALSO PRIVATE-VOC DEFINTIONS (...do some...) PREVIOUS DEFINITIONS
primitive code = [p4_previous]
DEFAULT-ORDER( -- ) => "FORTH"
nail the current search ORDER so that it will even
survive a trap-condition. This default-order can be
explicitly loaded with RESET-ORDER
primitive code = [p4_default_order]
RESET-ORDER( -- ) => "FORTH"
load the DEFAULT-ORDER into the current search ORDER
- this is implicitly done when a trap is encountered.
primitive code = [p4_reset_order]