* [DEF] ( -- ) immediatly set topmost CONTEXT voc to CURRENT compilation voc. : DEF' CURRENT @ CONTEXT ! ; IMMEDIATE note that in PFE most basic vocabularies are immediate, so that you can use a sequence of FORTH ALSO DEFINITIONS [DEF] : GET-FIND-3 [ANS] ['] FIND [FIG] ['] FIND [DEF] ['] FIND ; where the first wordlist to be searched via the search order are [ANS] and [FIG] and FORTH (in this order) and which may or may not yield different flavours of the FIND routine (i.e. different XTs)
[DEF]
( -- )
CONTEXT
CURRENT
: DEF' CURRENT @ CONTEXT ! ; IMMEDIATE
FORTH ALSO DEFINITIONS [DEF] : GET-FIND-3 [ANS] ['] FIND [FIG] ['] FIND [DEF] ['] FIND ;
EXTENSIONS useful immediate primitive