CURRENT

* CURRENT ( addr -- )

The variable that holds the or the topmost compile-order

wordlist. The new ansforth standard suggests the use 

of SET-CURRENT and GET-CURRENT instead of

using >CURRENT ! and >CURRENT @

system threadstate variable