DO-ALIAS DNEGATE DO-ALL-WORDS-WHILE-LOOP
DO-ALIAS
* DO-ALIAS ( exec-token wordlist* "do-name" -- )


create an ALIAS with the exec-token in the specified wordlist 
 : DO-ALIAS GET-CURRENT SWAP SET-CURRENT SWAP ALIAS SET-CURRENT ;
DO-SYNONYM

EXTENSIONS chainlist ordinary primitive