ALIAS-ATEXIT AHEAD ALIAS
ALIAS-ATEXIT
* ALIAS-ATEXIT ( xt "name" -- )

create a defer word that is initialized with the given x-token.

useful ordinary primitive