the named word in the hidden dictionary (i.e.
the wordlist referenced in CURRENT) is exported
into the public wordlist of it (i.e. which is in
this implementation CONTEXT[1]). The actual
implemenation will create a DEFER-word in the
public wordlist withits parameter area pointing
to the cfa of the hidden implementation.
: EXPORT
CURRENT @ CONTEXT CELL+ @ CURRENT !
DEFER CURRENT !
LATEST COUNT CURRENT @ SEARCH-WORDLIST
IF LATEST NAME> >BODY ! ELSE ABORT" can't find word to export" THEN
;