--- gforth/Attic/forth.h 1996/07/25 09:25:15 1.24 +++ gforth/Attic/forth.h 1996/10/13 19:56:21 1.26 @@ -21,6 +21,9 @@ #include "config.h" #include +#if defined(NeXT) +# include +#endif /* NeXT */ typedef void *Label; @@ -131,7 +134,7 @@ typedef Label *Xt; #define PFA1(cfa) PFA(cfa) /* CODE_ADDRESS is the address of the code jumped to through the code field */ #define CODE_ADDRESS(cfa) (*(Label *)(cfa)) - /* DOES_CODE is the Forth code does jumps to */ +/* DOES_CODE is the Forth code does jumps to */ #define DOES_CODE(cfa) ({Xt _cfa=(Xt)(cfa); \ _cfa[0] == symbols[DODOES] ? _cfa[1] : NULL;}) #define DOES_CODE1(cfa) (cfa[1])