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