REDO-ALL-WORDS REDEFINED-MSG? REFILL
REDO-ALL-WORDS
* REDO-ALL-WORDS ( wordlist* -- )


EXECUTE each entry in the wordlist in the original order defined 
 : REDO-ALL-WORDS
      0 FIRST-NAME
      0 SWAP ( under )
      BEGIN ?DUP WHILE 
         DUP NAME> SWAP ( under )
         NAME-NEXT
      REPEAT
      BEGIN ?DUP WHILE
         EXECUTE
      REPEAT
 ;
to run the NEW-WORDLIST in last-run-first order, use DO-ALL-WORDS

EXTENSIONS chainlist ordinary primitive