do-all-words:chainlist — ordinary primitive
EXTENSIONS
DO-ALL-WORDS
( wordlist* -- )( | ) ; |
; |
EXECUTE each entry in the wordlist in the reverse order defined
: DO-ALL-WORDS 0 FIRST-NAME BEGIN ?DUP WHILE DUP NAME> EXECUTE NAME-NEXT REPEAT ;
to run the NEW-WORDLIST in original order, use REDO-ALL-WORDS