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 * ------------------------------------------------------------------------
7 * Module name: localse.c
8 * Abstract: locals-extension word set
16 /**************************************************************************/
17 /* WORDS ******************************************************************/
18 /**************************************************************************/
25 if (sp[0] != 1 || *((Char *) sp[1]) != '|') {
27 compile_cell((Cell) _to_r);