DO-SYNONYM
* DO-SYNONYM ( wordlist* "do-name" "orig-name" -- )


create a SYNONYM in the specified wordlist.
 : DO-SYNONYM GET-CURRENT SWAP SET-CURRENT SYNONYM SET-CURRENT ;

DO-ALIAS / DO-ALL-WORDS / NEW-WORDLIST / WORDLIST / ORDER

EXTENSIONS chainlist ordinary primitive