\ Support for moving words to other (hidden) vocabularies vandys
[ifdef] DEPRECATED
*** Note this is all superseded by the "locals" support ***
\ Once the ForthOS system is entirely built and you're ready to
\ focus on your own coding, there are a terrible lot of words sitting
\ around in "forth" which are of no interest to the developer; internal
\ words, user variables, and so forth. The screens which follow
\ provide the ability to pick some vocabulary, and then let you name
\ words which will be plucked from their current vocabulary and moved
\ over to the new one.
\ There are also screens beyond that which use this facility do a
\ cleanup of "forth", putting most of the internal words into a new
\ "sys" vocabulary, and putting all user variables into "usr".
\ Support for moving words to other (hidden) vocabularies vandys
only extensions definitions
create (destvoc) 0 ,
: grab ( -- ) (destvoc) @ = abort" No destination set"
word (findLink) dup 0= abort" Not found" ( linkptr )
(takeVoc) ( LFA ) (putVoc) ;
[then] \ DEPRECATED
Put this in "extensions"
This variable records which vocabulary will receive stuff