1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
15 /**************************************************************************/
16 /* WORDS ******************************************************************/
17 /**************************************************************************/
20 if (top < WORD_LISTS) {
22 list[top] = list[top - 1];
27 list[top] = forth_wid;
38 for (i = 0; i <= top; i++) printf("%d: %p ", i, list[i]);