![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to errors.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to errors.fs CVS log | Up to [gforth] / gforth |
| version 1.15, 2003/03/09 15:16:48 | version 1.16, 2007/01/14 22:19:35 |
|---|---|
| Line 18 | Line 18 |
| \ along with this program; if not, write to the Free Software | \ along with this program; if not, write to the Free Software |
| \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. | \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
| [IFUNDEF] linked \ defined by chains.fs?! | : linked ( addr -- ) |
| : linked here over @ a, swap ! ; | here over @ a, swap ! ; |
| [THEN] | |
| : errstring ( addr u n -- ) | : errstring ( addr u n -- ) |
| ErrLink linked | ErrLink linked |